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causing at least a substantially uniformly sized oroplet of reagent fluid to be propelled through the orifice. The 
— droplet may be directed to imoac: a printing medium or collected in a dispensing receoticle. 
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APPARATUS AND PROCESS FOR REAGENT FLUID DISPENSING AND PRINTING 



BACKGROUND OF THE INVENTION 

The present invention relates to an aooaratus and process for dispensing ano onnting reagent fluids, 
5 wherein a transaucer is used to propel small quantities of the fluid towards a positioneo target. 

Diagnostic assays often reauire systems for metering, dispensing and printing reagent fluids. In the 
case of metering and dispensing, such systems comprise both manual and automatic means. For purposes 
of practicality, the present background discussion. will focus on the methods of metering and dispensing 100 
micro-liter volumes or less. 

jo The manuai systems of metering and dispensing include the glass capillary pipet: the micro-pipet; the 
precision syringe; and weighing instruments. The glass capillary pipet is formed from a orecision bore glass 
capillary tube. The pipet typically comprises a fire blown bulb and a tubular portion fire drawn to a fine 
point. Fluid is precisely metered by aspirating liquid through the tube into the bulb to a predetermined lev I 
indicated by an etched mark. The fluid may then be dispensed by blowing air througn tne tube. 

;s The micro-pipet typically comonses a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a tnreaded stoo. The distance tne piston travels within the cylinder and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ac- 

20 curately positioned metering marks. The fluid is introduced into and dispensed from the syringe by 
movement of tne plunger between the marks. 

Weighing techniques for disoensmg fluids often simply involve weighing a quantity of fluid. The density 
of the fluid may then be used to aetermme the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision syringe pump; the 

25 peristaltic pumo: and the hign performance liquid chromatography (HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground oiston located within a precision bore cylinder. The 
piston is moved within the cylinder in precise increments by a stepping motor. 

The peristaltic Dump comonses an elastomenc tube which is sequentially pinched by a series of rollers. 
Often the tube is placed inside a semt-circuiar channel and the rollers mounted on the outer eage of a disc 

30 dnvei by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 
of tne fluid. 

The HPLC metering vaive comonses a defined lengtn of precision inner diameter tubing. The fluid is 

introduced into tne define voiume ot tne tuoing with the valve in a first position anc tnen dispensed from tne 

tubing when tne valve is Dtaceo m a seconc position. 
35 All of tne aoove metering anc dispensing systems have the disadvantage that the volumes dispensed 

are relatively large. Furthermore, these systems are also relatively slow, inefficient anc comprise precision 

fined components which are oarticulariy susceotibte to wear. 

The printing of reagent fluids is frequently required in tne manufacture of chemical assay test strips. 

Selected reagents are pnnted in a desireo configuration on strips of filter paper. The strips may then be 
40 used as a disposable diagnostic tool to determine the presence or absence of a variety of chemical 

components. 

Generally, to perform a chemicai assay with a test strip, the strip is exoosed to a fluid or a series of 
fluios to oe tested, such as biooc. serum or urine. In some instances, the strip is nnsea and processed with 
additional reagents prior to being interpreted. The precise interpretation depends on the type of chemical 
45 reactions involved, but it may oe as simple as visually inspecting tne test strip for a particular color change. 
The manufacture of test stnps generally involves either a manufacturing process or a blotting process. 
The blotting o-ocess is the simplest manufacturing method and permits most reagents to be apolied witnout 
modification. A disadvantage o: tnis process ts that it is difficult to blot the fluics onto the test strip with 
precision. 

so The printing process will often involve any of three w II known methods: silk screening: gravure; and 
transfer printing. The silk screening of reagents generally involves producing a screen Oy photograonic 
methods in tne aesir d configuration for each reagent to be printed. The screen is exoosed under hgnt to a 
preselected cattern and then oeveiooed. The areas of the screen which are not exoosed to hgnt. when 
devel oped, become porous, however, tne areas ot the screen which nave oeen exoosed to hgnt remain 
relatively nonoorous. The screen is trier secured m a frame and the test stnc oiacec oelow. Tne oesired 
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reagent fluid, specially prepared to have a nigh viscosity, is spread over the too side of tne screen. The 
reagent passes through the porous areas of the sere n and onto the test strip. The test strip is then 
subjected to a drying process, specific to eacn reagent. Once the test strip is dry, it may oe onmed again 
using a different screen, pattern and reagent, 
s The gravure method of printing reagents comprises coating a metal surface with a hgm sensitive 
polymer The polymer is exposed to light m the desired predetermm d pattern. When aeveloped. the 
polymer creates hydrophilic and hydrophobic regions. The reagent is specially prepared such that when 
applied to the metal it will adhere only to the hydrophilic regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from tne metal to tne test 

10 StnP The transfer printing method comprises transferring the reagents from a die to tne test strip in the 
desired pattern. The die is made with the appropriate pattern on its surface and men coated with the 
desired specially prepared reagent. A rubber stamp mechanism is pressed against tne d.e to transfer the 
reagent in the desired pattern from the die to the rubber stamp. The rubber stamp is then pressed against 
rs the test strip to transfer the reagent, in the same pattern, to the test strip. 

Each of the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requ.rement that the reagents must oe specially prepared. Additionally, if a 
variety of reagents are to be printed onto a single test stnp. the strip must be carefully aligned pnor to each 
printing This alignment procedure increases the cost and decreases the throughput of the printing process. 
Moreover a special die or screen must be produced for eacn pattern to be onntea. A furtner disadvantage 
arises in that the above printing metnods are unaoie to place reproouceaole minute quantities of reagent on 

It* anobject of the present invention to provide a printing and dispensing method and apparatus which 



20 



25 



30 



35 



40 



45 



avoids these disadvantages. 



SUMMARY OF THE PRESENT INVENTION 
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The present invention is directed to a reagent dispensing and printing apparatus ano method, wherein 
the apparatus comprises a transoucer operative to eiect a substantially uniform quantity of reagent m a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
jetting tube is concentrically located with a piezoelectric transducer. The jetting tube comor.ses an ont.ee at 
one end and a reagent recew.ng aoenure at the other end. The receiving end of tne jetting tuse * 
connected to a filter which is in turn connectec to a reservoir containing a selected reagent. A ,ett.ng control 
unit supplies an electrical pulse of short duration to tne transoucer .n resoonse to a command issued oy a 
-omouter The electrical pulse causes tne volume defined by tne letting tupe to excanc by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At the end of the puise duration, the 
transducer de-expands propelling a small ouantitv of the reagent fiuid through the orifice and .mo a fluid 
recepticle. If desired, additional orooiets may oe deoosited in the recept.de or the receot.ee aligned with an 
additional jetting tube for receiving an additional reagent fluid. 

An additional preferred embodiment of the present invention may be used for printing reagent f.uids 
onto a print medium. In this embodiment, me letting tube is aligned with the printing medium sucn mat me 
propelled droplet impacts a precise position on tne medium. The jetting tube or print medium may men oe 
repositioned and another oropiet expelled from tne letting tube. Tne process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of me present invention is mat precise minute quantities of reagent .luid may be 
dispensed or pnnted in. a reoroduciole manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosit.es and surface tensions. The reag nts 
do not in general have to be soeaally adaoted for use with the present invention. 

The invention itself, tooemer w.tn further objects and attendant advantages, will best oe understooc by 
reference to the following Detailed description, taken m conjunction w.tn tne accompanying craw.ngs. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

FIGURE i ;s a schematic representation of a first preferred embodiment of the present invents 
snowing the use of multiple jetting neads to meter and dispense reagent fluid. 
5 FIGURE 2a is a perspective view of a first preferred embodiment of the jetting head of the presen; 

invention. 

FIGURE 2b is a cut-away perspective view of the preferred embodiment of Fig. 2a taken along imes 
2b-2b with the contact pins removed. 

FIGURE 2c is a sectional representation of the preferred embodiment of Fig. 2a taken along lines 2c- 

to 2c. 

FIGURE 2d is a sectional representation of the preferred embodiment of Fig. 2c taken along lines 2c* 

2d. 

FIGURE 2e is a sectional representation of the jetting tube and transducer of the preferred 
embodiment of Fig. 2b taken along lines 2e-2e. 
T5 FIGURE 3 is a schematic representation of a second preferred embodiment operating in the droc on 

demand mode as a reagent printing system. 

FIGURE 4 is a schematic representation of a third preferred embodiment operating in the continuous 
mode as a reagent printing system. 

FIGURE 5a is a schematic representation of a portion of the jetting head control unit showing tr.e 
20 LED strobe circuit. 

FIGURE 5b is a schematic representation of a portion of the jetting head control unit showing tr.e 
high voltage power supply circuit. 

FIGURE 5c is a schematic representation of a portion of the jetting head control unit showing trie 
print control Circuit. 

25 FIGURE 5d is a schematic representation of a portion of the jetting head control unit showing a 

portion of the print oulse generator. 

FIGURE 5e is a schematic reDresentation of a portion of the jetting head control unit snowing an 
additional portion of the pulse generator. 

FIGURE 6a is a perspective view of a second preferred embodiment of the jetting head of r.e 
30 present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Fig. 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of me 
present invention. 

FIGURE 8 is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 
35 head of the oresen; invention. 

FIGURE 9 is a grapn of the arop mass of tne emitted aroplets as a function of emission freauency :'r 
several fluid viscosities. 

FIGURE 10 is a graon of the velocity of the emitted aroplets as a function of frequency for several 
fluid viscosities. 

40 FIGURE n is a graoh of the total weight of fluia emitted as a function of the number of emitted 

droplets for a given fluid. 



DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIMENTS 

45 

Turning now to the drawings. Fig. 1 snows a schematic reoresentatton of a firs: preferrec emooaiment 
of a reagent dispensing system generally reoresenteo as reference numeral 30. The disoensmg system 30 
comprises a plurality of reagent fiuid reservoirs 200. a plurality of filters 300. a plurality of reagent jen»ng 
heaas 400. a plurality of jetting head control units 500. an interface unit 600. a computer 700. transportation 
so unit 902. a plurality of fluid mixing ceils 904 and a detection station 906. 

The reservoir 200 hoics a selected Quantity of reagent fluid for aisoensmg. The reservoir 200 :s 
maintained a: atmospneric pressure by sunaole means such as an atmospheric vent. The reagent fuic s 
transferred from tne reservoir 200 tnrougn the filter 300 to tne reagent jetting head 400. Tne filter 300 :s 
placed between tne reservoir 200 and tne jetting head 400 to ensure that any particular tor ign matter in tne 
55 reagent fluid is traooed before entering tne jetting neaa 400. 

The oiurality of jetTing heads 400 anc tne oetectton station 906 define a processing path. Each jetting 
head 400. wnicr. ;s describeo in oerail oetow. ejects uniformly s;zea croptets 2 of reagent fluid Tne droc:e:s 
2 are orooellec. witn controlled velocity and direction, towarcs a selecting mixing cell 904 posaionec along 
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the processing path by tne transportation unit 902. The mixing cells 904 are comprised of non-reactive 
materia! and function as minute holding tanks for the dispens d reagent fluid. 

The plurality of jetting neaas 400. shown in Fig. 1, are positioned sequentially atong the processing 
oath. Alternately, some or all of the plurality of jetting heads 400 may be positioned with respect to tne 
transportation unit 902 sucr. that the heaas 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled Dy the computer 700. The 
computer 700 issues commands to an interlace unit 600 which is electrically connected to the transportation 
unit 902 and to tne jetting head control unit 500. The interlace unit 600 is of conventional design and is 
used to control the transfer of information between the computer 700 and the jetting control unit 500. The 
interlace unit 600 is also used to control the transfer of information between the computer 700 and the 
transportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 
numeral 400. The jetting nead 400 comprises a two piece symmetrical housing 402. 404. The housing 402. 
404. when assembled, is aaapted to form an orifice aperture 406. an air vent and reagent supply chann I 
410* and a transducer chamber 403. shown in Fig. 4b. Four screws 408, adapted to respective housing 
screw apertures 41 6. hold re housing 402. 404 in an assembled configuration. 

The jetting head 400 furtner comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 
fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
aperture 431 at the other eno for excelling and receiving fluid, respectively. The piezo-electric transducer 
434 is cylindrical^ shaped and secured concentrically about the mio-region of tne jetting tube 432 with 
epoxy or other suitable means. 

The piezo-electric transaucer 434. shown in Fig. 2e. defines a first and second end and comprises a 
section of cylindrical^ snaoeo piezeo-electrtc material 435. An inner nickel electrode 437 covers the inn r 
surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 
distance to enable electrical connection external to the cylinder 435. 

A second nickel electroae 436 covers the majority of the outer surface of the cylinder 435. The second 
electrode is electrically isolated from tne first electrode 437 by an air gap at the face of the second eno of 
the cylinder 435 and by ar. air gao on the outer surface of the cylinder 435 near tne first end. When an 
electrical pulse is applied tc the first and second electrodes 437. 436 a voltage potential is developed 
radially across the transaucer material 435. The voltage potential causes tne radial dimensions of the 
transducer 435 to change, wmcn causes the volume aefined by the transducer 434 to also cnange. 

The jetting tube 432 is positioned in the transducer enamber 403 sucn that the receiving end 431 
extends beyond the rearward enc of tne transducer 434. The receiving end 431 of the jetting tube 432 is 
inserted into one end of a reagent supply tube 430. The suopiy tube 430 is seaimgly held to the jetting tube 
432 by concentric teetn ai2 formed by the housing sections 402. 404. Tne teem 412 not only seal the 
supply tube 430 to the jetting tuoe 432. but. also, seai the supply tube 430 to tne housing 402. 404. 

The second end of tne suooiy type 430 passes through the cnannel 410 and into a reagent reservoir 
200. The reservoir 200 contains tne reagent fluid to be dispensed by the jetting head 400. As the reagent 
fluid is dispensed, air is suooliea to tne reservoir 200 through the channel 410 to prevent tne creation of a 
vacuum in the reservoir 200. The reservoir 200 is reieasably attachec to the housing 402. 404 and held in 
place by frictional forces. A reservoir cao 202 is flexibly attached to the reservoir 200 and adapted such that 
the cap 202 may be used to secure tne opening in the reservoir 200 when tne reservoir 200 is disengaged 
from tne housing 402, 404 

The position of the jetting tube 432 defines tne horizontal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are neid in a pre-defined vertical relationshio w.tn respect to tne housing 402. 
404 by means of two uDoer vertical alignment pins 418 and two lower vertical alignment pins 41 8. The two 
upper vertical alignment p.ns 41 8 extend horizontally from the housing section 402 into the transaucer 
chamber 403. Similarly, tne two lower vertical alignment pins 418 extend horizontally from the housing 
section 404 into the transaucer cnamoer 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402. 404. 

The jetting tube 432 anc tne transaucer 434 are held m a predefined horizontal relationship wrth respect 
to the housing 402. 404 oy means of four horizontal alignment oms 424. Two of the horizontal alignment 
pins 424 extend horizontally from the housing section 402 aooroximateiy m.away into. the transaucer 
chamber 403. Similarly, two of the horizontal alignment pins 424 ext no nonzontally from tne housing 
section 404 approximately m.away into tne transducing cnamoer 403. Eacn nonzontai alignment pm 424 is 
formed integrally with tne resoective nousmg section 402. 404. Tne alignment o.ns 418. 424. sealing teeth 
412 and orifice aoenure *06 are ahgnec ana aaaotec to hold tne jetting tuoe 432 and transducer 434 sucn 
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that the orifice 433 of the jetting tube 432 extends into the orifice aoerture 406. 

An lectncal transducer activation pulse is suppii d to tne piezo-eiectric transducer 434 from the jetting 
head control unit 500 by means of two contact pins 422. A quantity of fluid will be oisoensed from the 
jetting tube for each aooliea activation Dulse. The activation pulse can be produced by a variety of 

s conventional circuits or commercially available units. Therefore a detailed description of such a circuit will 
not be provided. However, a circuit for producing a series of activation pulses is provided m the description 
of the printing embodiment beiow. Due to the dif fermg constraints mvoiveo in dispensing and printing, the 
circuit in the printing emoodiment is not reauired to produce only a single putse. However, one skilled in tne 
art could, if desired, modify the circuit to produce a single pulse on demand for use in the dispensing 

jo embodiment. 

Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437, 436 located on the outer surface of the transducer 434. Two contact pin holders 
414. integral with the housing 402. 404, are positioned to hold the respective contact pins 422 under the pm 
heads 423 such that each pin head 423 electrically engages the appropriate electrode 437. 436 of the 
rs transducer 434. Two contact pin engaging posts 420 extend from the housing 402. 404 opposite the contact 
pin holders 41 4 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite tne pm heads 423 extend through the housing 402, 404 by means of contact 
pin apertures 421. Since the nousing sections 402. 404 are formed symmetrically to one another, the 
contact pins 422 may be optionally anacned above the transducer 434. 
20 In operation, the reservoir 200 containing reagent fluid is fastened to the jetting nead 400 such that the 
fluid supply tube 430 extends into tne reagent fluid. Tne filter 300 may oe fitted to tne free end of the 
supply tube 430 or positioned inside the reservoir 200. Air is suoplied througn tne cnannei 41 0 around the 
supply tube 430 to prevent the reservoir 200 from failing below atmospheric pressure. The air is prevented 
from entering around the suooiy tube 430 and into the transducer cnamoer 403 by the seal created 
25 between the sealing teeth 412 and tne suoply tube 430. The jetting tube 432 may oe primed by slightly 
pressurizing the reservoir 200 tc cause the reagent fluid to travel through the supply tube 430 and into the 
jetting tube 432. Once primed, tne fluid is prevented from substantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation outse is conducted to the contact pins 422 of the jetting head 400. The 
jo contact pins 422 communicate tne nigh voltage pulse to the eiectrodes 437. 436 of tne transducer 434 witn 
polarity sucn that the concentrically mounted transducer 434 expands. The rate of exoansion is controlled 
by the rise time of the high voltage pulse which is preset to generate a raoid exoansion. The expansion of 
the transducer 434 causes the letting tube 432. which is eooxied to tne transducer 434. to also exoand. The 
expansion of the tube 432 generates an acoustic expansion wave interior to the tuoe 432 which travels 
js axially towards the onftce 433 and towards the fluid receiving aoerture 431. When tne expansion wave 
reaches the orifice 433. the reagent fluid is partially drawn inwardly. However, tne surface tension of tne 
fluid acts to inmbit substantial mwarc fluid movement. 

When the exoansion wave reacnes the end 431 of the tube 432. the exoansion wave is reflected and 
becomes a compression wave wmch travels towards the center of the piezo-eiectric tube 434. The nign 
40 voltage pulse width is adaoteo such mat wnen the reflected compression wave is oeneatn the piezo-eiectnc 
tube 434, me high voltage outse falls, resulting in a de-excansion of the transducer 434 and the jetting tube 
432. This action adds to the existing acoustic compression wave in the interior of the jetting tube 432. The 
enhanced compression wave travels toward the ori fice causing reagent fluid to be oisoensed from the tuoe 
■. 432. The fluid is propelled from tne orifice 433 as a small droplet 2 and oeocsitec in tne selected mixing 
45 cell 904 positioned by the transoorration unit 902. One orooiet 2 is disoenseo for each transducer activation 
pulse. This mode of dispensing is re^ene^ to as tne drop on oemano mode. 

In some instances, the orooiet 2 may be accompanied by at least one smaller sateiite droplet. Howev r. 
even if sateiite droplets are present, the volume and velocity of the reagent orooiets 2 are nigniy 
reproduceaoie. This reproduceaoiiity allows for precise dispensing of uniform, controliaoiy stzec drooiets 2 
so of reagent fluid into the mixing cell 904. 

The drooiets 2 of reagents imoac; tne mixing cell 904 with sufficient force ano volume to cause fluidic 
mixing of the reagents. Once tr.e desired amounts of tne selectee reagents are oeoosned in the selected 
mixing cell 904. mixing cell 904 13 transported to tne detection station 906 where tne mixed reagents may 
be extracted for use or anaiyzec for assay results. 
55 The dispensing system 30 orovides numerous advantages based upon the ability of tne reagent jetting 
head 400 tc rapidly and reprocuceaoiy eject uniform Quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent uDon tne volume of tne reagents used. The aoiiuy of tne 
disoensmg system 30 tc disoer.se such minute amounts of reagents tnereoy reduces tne orocessmg time 
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of certain chemical assays. Furthermore, some chemical assays require a wide range of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents m volume small enougn to 
make the desired assay practical. The aispenstng . system of the pres ent invention overcomes this 
disadvantage. 

In addition to dispensing reageni fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as fitter paoer to produce an assay test strip. A printing system 10 
using the present invention is represented in Fig. 3. Structure similar in form and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200. a filter 300. a reagent jetting head 400. a jetting head control unit 500, an 
o interface 600. a computer 700, and an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of the 
plotter 800 will not be described in detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unit 600. The plotter 800 processes the 
5 commands and produces control signals to drive an x-axis motor (not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor is used to position a 
drum (not shown) to which the printing target 1 is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is applied to the control unit 500 and 
indicates that the plotter 800 is ready to begin a printing operation. 
20 The control unit 500 also receives control signals from, the interface unit 600. These signals include 
signals HIGHER*, LOWER* to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500; and a series of print signals PRT*. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200. 300 are initialized anc ooerate suostantialiy as 
25 described above. The jetting head control unit 500. shown in Figs. 5a - 5e comprises a print control circuit 
510. a pulse generator 530. a high voltage supply 540. and a strobe pulse generator 560. The control unit 
500 also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or described in detail. 

The print control circuit 510 receives the pen down signal PENDN from the plotter 800 and comprises a 
30 transistor Q100. a one-shot circuit LM00. two NAND-gates U101, U102. a line decooer multioiexer UiOT and 
four inverters U103-U106. The pen down signal PENDN is applied to the base of the transistor QlOO oy 
resistors R100. R101 and diode D100. The emitter of transistor QlOO is tied to ground and tne collector is 
connected to the +5 volt suoply by resistor R102. 

The one-shot U100 comorises inputs A. B and an output Q. The B input of the one-snot U100 is 
35 connected to the collector of the transistor Q100 and the A input is tied to ground. The -tme oenoc of the 
pulse produced by the one-shot U100 is determined by. a resistor R104. a vanaoie resistor Ri05 and a 
capacitor C100. The output Q of tne one-snot U100 is combined witn the collector outout of tne transistor 
QlOO by the NAND-gate UiOi and then inverted by the NAND-gate U102: The circuit is operative to 
produce an adjustable delay m the aoDhcation of the pen down signal PENDN to tne control unit 500. 

The line decoder U107 is circuited to function as a 3 input AND-gate. The output of me NAND-gate 
U102 is applied to the first input of the decoaer U107; the print signal line PRT* comcnstng a sen s of 
pulses from the interface unit 600 is appliea to tne second inout; ana a jetting head ON'OFF signal from 
switch S1 is applied to the third mDut. The inverter LM06 inverts the output of the line decoder U107 to 
generate the print control signal PRT* ana the inverters U103-IM05 invert the contro: signals LOWER*. 
45 HIGHER*, and RST signals, resoectiveiy 

The high voltage supply 540. snown in Fig. 5b. provides +175 volts DC to produce a maximum Dulse 
of +150 volts peak to oeak at me reagent jetting , head 400. The high voltage supoiy 540 comonses 
differential amplifier U12 ana transistors Qi. Q2. 013. Q14. A stable reference voltage o: -2.5 volts DC is 
produced at the junction of a reservoir Ri3. connected to the -15 volt suopiy. and a diode CR6. connected 
so to ground. The reference voltage is combined with a resistor R14 to produce an adiustaoie. stade voltage 
reference for the ampliie' U12. The reference voltage is aopliec to the inverting input of tne amplifier U"2 
through a resistor R11. The nonmvertmg input of the amplifier U12 is connected to grouna by £ resistor 
R12. The amplifier U12. m combination with a feedback resistor RiO. proauces an outout signal proportional 
to the difference of the voltage r ference signal and the ground potential. 
55 The output of the amolifier in 2 is apohec to tne base of tne transistor G2 whose collector is connected 
to tne +15 volt suooly. The signai oroaucec at tne emitter of the transistor 02 is aoohec ;: tne case or tne 
transistor Ot througn resistors ~R8. R6. R5. a transformer L1 and diodes CR4. CR2. CRi. T^e en;ne- o: tne 
transistor Qi is connectec to ground and tne collector is connected to the * 15 voltage s-roiy tnrcugr. tne 
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transformer Li. A diode CR3 connects the collector of the trans.stor Qi t0 the .unct.cn a , ,„ 
and me diooe CR4. The transistor Qt is biased for proper operation by ZJS^^g™"* * 
R7 and a capactor C22 connect the ,unct,on of the res.stor R 8 . R6 to the * ,5 voltage supply * 
Th. .trans.stor Qi and the transformer L1 form a »„ yb acK- blocking oscillator Any increase 
s supplied by the transfer Q, proouces an increase ,n energy transferred through th^se ondart * 

the transformer L1 and d,ode CR5. Therefore, an .ncrease « current supplied by xZ^sZr ZZ^ * 
an .ncrease in power available to tne high voltage output. The diodes CR1-CR4 form a " 
prevents trans.stor Qt from saturating. The clamp thereby avo.ds trans.stor storage time 

The d.ode CR5 is connected to a multiple p. filter formed by the .nductors L3 L2 capacitors r*. - 
io C4i and res.stors R29. The mu.t.p.e pi filter attenuates npp.e and sw.tch.ng spikes m\S^on a , ' ^ 
the transistor Q 13 wh.ch produces the h.gh voltage output V ♦ ♦ . A r^C^^^STT '° 
trans.stor Q13 to the emitter and to the res.stor U29. The base .s also connected o , he olec r ^ "* 
trans.stor 014 by a resistor R65. The base of the transistor Qu .s connected to the ♦ 5 vol sulo h"* 
res.stor R67 and to ground by a resistor R66. The em.tter of the transistor 013 prov.des a s ^ , " * 

' S ! E t NS ,l WhiCh 18 ^ ^ ,0 ,he ' nvenin9 ' nput °' ,he amp,i,i " ™ through a re^ tor R 9 The VZL 
output V ♦ 1S produced at the collector of the trans.stor 013. The proper b.as.ng of the 7n*Z r 
proved by res.stor R64 ano the b.asing crcuit compnsing the «rans,stor Q14 ? res.stors R67 RsTrss * 

The pulse generator 530. shown in Figs. Sd. 5e. compnses an opto-.soiator U18 a one-L, 
d.g.ta. to analog (D/A, converter U30 and two binary counters U24. U25. The puis ^Qenera'o" 530 a-?' * 
» control s.gna.s PRT*. LOWER'. HIGHER*. RST and produce the act.vat.on P u"se w'htch s ^ t ™ 
ransducer 434. In norma, operation, tne PRT' control signal ,s suppl.ed to the ooto-.so.arcr UiS * 

Z n- 7!T ^=n Ct P0 ' mS ES - op,0 - so,ator U1 * * of conventional oes.gn and composes aTiam 
emm.ng d.ode LED) crcuit and a photo-e.emen, crcuit. A res.stor R, 5 operates as the .oad ressto «o me 
LED c.rcu.t of tne .solator ana a capactor C25 suppresses trans.ent no.se on me voltaoe sloZ « Z 
* .solator ui8. The output of the .soiator U,8 ,s aopl.ed to one .nput of the one-shot U23 who'se . me constLm 
•s ad,ustably determ.ned by res.stors R38. R25 and a caoactor C30. The pulse CSS 
output of the one-snot U23 is fed to the base of a ,rans.stor 09. A resistor R39 sets me aporo^a"e oa « 
vTdc tna* "vT" ™ ™* " ^ " * «" CM0S •*» " e, Ze " 

The control of the nse and fall rates of the pulse generator 530 is accomplished by directing a pair of 
current source trans.stors Q11. Q 12 t0 charge M discnarge , capaator P C57 . t2 5™2r On J 
operative as a source of current and the ,rans.stor 0,2 is operative as a s.nk for current At ^ans stor 0 0 

0° r :z^^t by a .r ,ng an ao3r ° Dna,e ° ,as *™» a £ 

of the transistor On. Tne o.asmg of tne trans.stors Oil. Oi 2 is critical to theprooer r !Se and fali ra-es 

rt e r m O ? a PreC,S ' 0n V0 ' ta9e re!erSPCe£ CR13 - CR15 3re USe ° ,0 pr0v,de *" -Lnce vc tace ' 

A temoerature comoensation networx ,s formed from zener d.oaes CRM. CRl6 anc -—ore P 55 P54 , 0 

uTe'dT^fr^'T ° f me tr3nS!S,0rS Q ' 2 - res P ectIvel V- ^e vanable reastors' ^g" R 52 may bt 
head 400 A ni 1 ! T "a 6 ,,me - respectlve "' of «* pu.se appnec to the reagen: ,emn 5 

head 400. A pluraHty of res.Stors R45. R46. R47. R4 8 . R49. R51. R52. R53. R56. R57 R58 are use3 to 
oroper,y p.as me «rans.stor Q10. Q11. 012 anc capactors CSS. C60 are ccu.ted to m^iam stao'. "of tne 

hinh^LT 03 "" ° f ^ ° U,DU5 St39e °' thS fiSe and ,8 " CirCuitr V ° 10 - 01 ■■ ° 1 2 ^ very high. With sucn a 
2 Zl IZ *T? fCM e ' eme « T a " aChe ° ,C the CapaC,,0r 057 COuld aftect tne "" eafi 'V of tne r,se and fall 
, s TJTrT, * < 30 E ' n0U ' ooera,,onaj am * ,i ' i * ^32 .s used as an impedance .menace. Tne 
45 ampi.f.er U32 is contigured m tne nonmvea.ng mooe ana orcuaeo with caoac.tors C58 C55 for stab-l.ty 

*rr. rr °T n . °' tne amDl,,,er U32 IS a w" eG '0 an .nvenmg amol.f.er U3i by means of a res.stor R62 Tne 
■ amohher U3i inverts ana cond,t,ons tne p-^.se con.roi s.gnai w„n the a.o of res.stors RS9. R60. Res.stors 
Z\n 63 1( " nneCted 10 ,ne - 15 volta 3e supply, prov.de a means for adjusting the DC level ottse: of tne 
so thTcrcu-t ° Ul3U: S ' gnal ' Ca ° aCit0rS C5K C52 are connected 10 enna "« the performance ana stachty of 
The outout of tne amoiif.er U3i >s aopl.ec Py means of c resistor R41 to tne pcs.tive v 0 i:aoe reference 
signal input R=F, - , 0 - tne D A convener U30. Tne negative voltage reference s.onai input RE=V, ,s t.ec to 
grouna by a resistor R40. The OA converter U30 produces output s.gnals" I0UT IOUT' wn.cn are 

« rp 0 , 0 ?'^ 3 ' '° me *?T Ce ° etWeen ,ne ° CSl,,ve an0 ne98 ,,ve v0,ta 9 e 'Terence signal inputs RE?i > )■ 
55 REFH. Caoactors C48. C49. C50 are connecteo to tne D A converter U30 to ennance stanlity. 

p, Tf 1 ^ convener outputs IOUT. (OUT' are a.sc prooomonai to an 8-b.t binary vaiue aopi-ed to moots 

LOwV n !.?u a -=. Va ' Ue JL SU00i,eC 0y ' ne " un,erJ U24 - U25 wn,cn are « ntro "W oy tne tu.ict.or. s.crws 
LOWcR HIGHER ana RST. Tne LOWER' s.gnai and the HIGHER* signals are applied to tne coun: -,c ana 
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count down inouts CU. CD of tne counter U24 by means of opto-solators Ul9. U20. The carry and borrow 
outputs CY BR of me coume- U24 are connected with tne count uo and count aown inputs CU. CD of the 
-ounter U25 The reset .routs RST of both counters U24. U25 receive the RST signal oy means of an ooto- 
isolator U21. Resistors Ri6. Si 7. R18 are used as load resistors for the LED circuits of the isolators U19. 
U20 U21 and capacitors C25. C27. C28 are used to enhance the stability of me isolator circuits. 

The counters U24. U25 r.ay optionally be preloaded to the selected 8-bit binary value through input 
lines TP0-TP7 The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22 The selected Binary value is loaded into the counters U24. U25 by pulling me respective 
inputs TP0-TP7 low and appiv.ng an external, active low. load signal EXT LOAD to pm TPS. The load signa. 
,o pm TP 8 is connected to the load inputs LOAD of the counters U24. U25 and conditioned by a clipping 
circuit comprised of diodes CR9. CR10 and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs IOUT. IOUT are connected to the .nverting and noninvening 
inouts of a differential amplify U29. The output of the amplifier U29 is fed back to the invert ,ng input by a 
resistor R50. The amplifier U29 converts the current output of the D/A converter U30 to a voltage output. 
js Capacitors C56. C47 are provoed to enhance circuit stability. , 
The output of the amplifier U29 is applied to the noninverting input of the amplifier U28. The output of 
the amplifier U28 is fed bacK to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting inout is also connected to ground by a resistor R36. To enhance tne freauency resoonse of tn 
amplifier U28 a resistor R43 and a capacitor C54 are connected between me freauency compensation input 
20 FC and ground. An adjustao.e DC offset is provided by cennecting the output offset inputs OF. OF with a 
variable resistor R42 The w.oer of the resistor R42 is connected to the hign voltage power supply output 



V 



The output of the amplifier U28 is also connected to the base of a transistor 04 and through diodes 
CR11 CR12 to the base of a transistor 07. The transistor 04. 07, 03 and resistors R30-R35 form an output 
s circuit capable of driving h, 5 n capacitive loads at high slew rates and w,oe banowidtn. The vanabie resistor 
R3i may be used to set me maximum current through the bias network R30. R33 by measur.ng tne voltage 
drop across resistor R35. 

The strobe generator 550 produces a strobe pulse and comorises transfers Q101-Q105 anc a on - 
shot circuit U108 The strooe intensity is determined by me circuit comprising the transistors OiOi-OW 
, 0 and resistors R109-R11S. The circuit is connected to me anoae of the LED 900 and receives two inputs 
from the interface unit 600 tc produce four levels of light intensity in the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and < tne 
transistor Q105. The one-mat U108 comorises inputs A. 6 and an output 0. The strooe signal STR0E= is 
applied to the 6 inout frcrr. me interface unit 600. The duration of me one-shot U108 output pulse -s 
» controlled by the adiustaote RC network RtOT. R108. The output Q is aoohed to tne case of *e jrans^or 
0105 by resistor R108. Tne collector of the transistor 01 05 is connectec to the catnode o. tne LED 900 to 
draw current througn me LED 900. 

The computer 700. control unit 500 and plotter 800 must be initialized. The initialization of the computer 
700 and the plotter 800 will net be discussed since these units are of conventional oes.gn and operation. 
* To initialize the letting need control unit 500. the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to me control unit 500 whereupon me counters U2^ 
U25 are cleared The computer 700 then retrieves from its memory, or by conventional operator input, tne 
desired digital setting for tne D-A converter. This setung may a.so be calculated from cata and may be 
taitored to specific sizes of letting heads 400 or reagent fluids. The computer 700 then issues a series of 
« commands, mrough the men*, unit 600. to .ncrement or decrement the counters U24. U25 to corresoonC 
to me desired binary senmc. If tne command d.rects ma: the counters are to be raised, then the HIGriEn 
s g^a 7Z££ througn oPto-.solator U20 to tne count up CU input of the counter U24. Sim any t t me 
command d.rects mat tne counters are to be lowered men me LOWER' signal ,s ^ 
isolator U19 to tne count cewn CD inout of the counter U24. Since the carry and borrow outouts CY. Bn of 
50 he ™nxe U2 are connected to me count uo and count down mouts CU. CO. respectively, of the counter 
U25 the d,d«a. setting acc ec to tne D A convener U30 may range from 0 tc 255. Alternately, me counters 
U24. U25 could be initialises to a des.red setting by loading tne binary va.ue on the lines TP0-TF, and 
strobing the EXT LOAD line. 

Once tne control um: 500 and tne olorter 800 are initialized, me printing cycle may begin. The comoute. 
< s 700 ?ssue a command ,= :,e interface unit 600 tc produce the series of PRT s.gnai ^ 

700 men commands tne c cr.er 800 tc print, for examoie. a line along a selectee oatn. Tne owner 800 
oosit ons tne'en ng neac 00 and targe: i anc issues me pen oown s-gna, PENDN. Tne signal ,s oeiavee 
or m control arc,: 5 i0 to ensure mat me target 1 ,s properly aosnones. A: me exaranon o .ne 
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delay, tne signal is AND d with me closed enable switch Si and the sen s of print pulses PRr Th 
of the AND operation is the aophcation of the PRr pulses to the pulse generator circuit 530 ' 

The PRr signal is aoplied tnrough the jumper JMP to the opto-isoiator ui8 ana then to the o 
U23. The one-shot U23 produces a pulse signal which is then convened from CMOS signal levels toTh^ 01 
volt DC signal level by the transistor Q9. The rise and fall circuitry comprising Q10. Q11 Q12 conve 15 
square wave pulse into a pulse nav.ng the rise and fall characteristics preset Dy the resistors R49 K$T£* 
conditionea pulse is then amplify by the amplifier U32 and applied to the amoiifier U31. * 

The amplifier U31 converts tne polarity of the conditioned pulse to that acceptable by the D/A con 
U30 and supplies " an adjustaoie DC offset. The DC offset is used to counteract possible distil 
attributaoie to the amplifier U31. The distortion arises in that, for the amoiifier U31 to be adequatlT 
responsive, a small degree of current must flow through the resistor R41. This current creates an off 
condition at the output of the amplifier U29 which is then scaled by the D/A convener U30 in correso 5 * 
dence with the binary data. The resistor R63 allows a small amount of current to be applied to the amplif!"" 
U31 to control the offset voltage attributable to the current flowing through the resistor R41. 

The D/A converter U30 scales the difference between the inputs REF< + ), REF(-) using the binary oata 
supplied to input lines B1-B8 to oroduce a current output pulse IOUT and a current inverted output ouisa 
lOUr. The two outputs IOUT, IOUP are fed to the amplifier U29 which convert the current outputs into a 
single voltage output. The scaled, conditioned pulse is then applied to the outout circuit compnsmc the 
amplifier U28 and the transistors Q3. 04. 05. 06, 07. The circuit produces a h.gh voltage pulse w.m tne 
aforementioned rise ana fall characteristics to drive the piezo-electnc transducer 434. 

The high voltage pulse is aooi.ed to the transducer 434 ana causes a arooiet 2 of fluid to be propeii a 
onto the target 1. Since the pen oown signal PENDN is still aoplied. additional droplets 2 are produced from 
the jetting head 400. The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce tne aesired printed line. When the onnting is complete, the oiotter 
800 removes the pen down signal PENDN and the oropiet emission stoos. Of course it should be 
understood that dots, circles anc tne like could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The size and uniformity of the droplets 2. as well as the presence of any satelite droplets may be 
observed with the aid of the scooe 950 and the LED 900. The scope 950 and the LED 900 are oos.t.oned 
such that tne drooiets 2 pass oetween tne scope 950 ana tne LED 900 and witn.n tne focal range of tne 
scope 950. The strobe pulse wnen aoplied to tne LED 900 causes the LED 900 to momentarily fiasn. The 
timing of the activation and the w.ath of the pulse may be adjusted such that the flash occurs wnen tne 
fluid, exoeilea in resoonse to tne mgn voltage pulse, is between the scope 950 anc the LED 900. The 
dispensec quantity of fluid may men be observed in flight or at or near the momement of separation from 
the orifice 433. Corrections oasec on tne observation may tnen oe maae to tne system 10. , 

Since eacn dropiet 2 is small m volume, tne oropiet 2 may be rapidly absoroec oy tne target 1. tnereoy 
allowing raoid and precise olacemen: of 3 variety of reagents on the target 1 w«th reducec drying time ana 
reduced cotentiai of fluidity mixing. In addition, the anility to place small drooiets 2 in a precise manner 
enables tne target 1 to be pnntea in a high aensity matrix with a variety of reagents as isolated matrix 
elements. 

In some printing abdications, camcularly when printing fluids of flow viscosity and surface tension, it 
may be aesirabie to force the fluia tnrougn the jetting tube 432 under pressure ana allow the vibrations 
proaucea oy the transducer 434 tc creak tne emitted fluid stream into precise aroplets 2 Unaer this mode 
of printing, the emission of drooiets 2 can not be stooped by cessation of the tranaucers activation puise it 
is therefore necessary to preven! fiuid emission by otner means. One preferred means of momentarily 
stopping emission of tne drooieti is snown scnem ancaliy in Fig. 4. In tn.s arrangement/structure simna- 10 
structure reoresented in Fig. 3 m form and function, is represented by like reference numerals. 

Tne arrangement, generally represented by tne numeral 20. includes a closed reagent recirculation 
system comprising a normally cose three way valve 970. a sump 960 and a recirculation Dump 980. In tne 
continuous mode, the reagent fluid is forcea out the orifice 433 by hydraulic oressure and broxen mtc a 
series of substantially uniform croDiets 2 by movement of the transducer 434. A regulated, fmerec air 
supply 1 00 is used to pressurize tne reagent fluia reservoir 200. The reagent f iuid within tne reservoir 200 
may optionally be agitated by a magnetic surer unit 990. This is especially useful for reagent fluids 
comprising susoenaed particles. 

The tnree-way valve 970 comonses a common channel, a normally open cnann t anc a normally dosed 
channel. Tne fluid is forced througr. tne filter 300 and aoplied to the normally closed cnannel of the vaive 
970. When tne normally ciosec cr.annel is ciosed. the normally open channel 0: tne vaive 970 functions as 
a vent for tne reagent jetting head 400. Tne common channel is connected to tne reagent suopiy tuoe 430 
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m Ann Thp rean nt suoolv tube 430 is also connected to we sump 960. 
of the jetting nead 400. The reag , nt supply v aoP ropnate signal supplied Dy the comouter 

in operat.on. the normally closed channel '» op«neo oy ^ ^ . $ 

700 wh,ch a.so closes the normally -jn ann . wn n he no y ^ ^ ^ ^ ^ ^ 
permitted to pass to the ^ U the collected f.u.d to the m.et side of the 
:^Z^Z SttTJZ "^To th voir 200. The returned fluid ,s tnen m,*ed with the 

contents of the reservoir 200 and .. ^^'^^Zerrupx tht continuous stream o< pnm pulses to 
When operating in the continuous ^ J^T^^ closin g the normally closed cnannel of 
m. jetting head 400. the pnntmg may be ^JJJ^J the flow of reagent f.u.d to the .etting head 
the valve 970. The closing of the '^^^^^U^- Wi * < he ,luid su00 ' y b '° Cked - ™ 
400 and allows the iett,ng *^^TSuT5 Zoning of the target i by the plotter 800 
transducer 434 is unable to ^^J^i, droplet 2 em.ssion. the computer 700 may close the 

800 - - pos,t,on - target 1 or pos,t,on a new 

^Wh^ 

area on the target 1. However, to a certain^ e« nt Ajta* c ^ embodime nt ,. particularly well 

A second preferred embod.ment of the .jm I • secl|0ns 401 , 402 -. 403". 

s ^-^Sr me rea9ent ,,u,d reserv0,r 200 ' when 

tne housing'sec^on 403' .s positioned ^""^J^^ «* a ^ ^ **" ™ 
The iett-ng head 400" »urthr c£0« J^g ^ S and the transducer 434^ are most clearly 
: similar to those of the first "^"^ TJ^^J^ 433' at one end and a reagent fluid receding 

Te -ounted to the ,ett.n 9 tube 432" concentr-cai, aoout 

, housmg sections 402". 40V. The channel 4,6 ^^.^J^ i»canmcm6 
engage and sea. against the f.u,c *JZ^J£«J£^" connected w,tn the fluid reserve 200' 
to the reagent «u.d supply cnannel 430. . Tto su P py ,„ Rg 6b . 

by means of an aperture 43V ^^^f!^* **>« d » conta,n ,ne rea9em ^ ^ 
The reservoir 200" comprises a flexible reservoir -m g ^ ^ =ass from 

1S lini „g 20V comprises one acerture ^» ^ S , ne soace belwe en tne reservoir 200' 

^ *» « — ^ me apenure 2C2 ' 10 tra ° 

unwanted particulate foreign matter. ansdueer 434 . by means 0 f two contact oins 422". The o.ns 422' 

E.ectncai pulses are supp.-eo » « «£» w ™^™^ ^ and respeC t,ve apertures 42v of 

„, s ss i°= 8 - rr-sjr^- - - — « 

so comarmnatioo prWBms. ■ F . wa generally tep'esemeo as 400 . 

Th. i.n,n 9 h.« 400" «^„«^ 1 ^' 4 SSiJ. ««. *- «»»«;^; 



0 268 237 



T5 



held in position by a hold down plate 402' attached to the housing 403'. The el ctrical connec v-« 
transducer 434- are of conventional design and are therefore not shown. The housing 4^-7° the 
comprises a threaoed aoerture 406" for mounting the jetting head 400'. " er 

The jetting heaa 400" operates in a manner similar to the jetting heaas described above. Hcwev, 

s' ierfinr heart the trsneHi.^Af aia» .-n.. _i . • "^er, in 



this jetting head the transducer 434- is normally disk shaoed. When th el ctrical pulse is aanuo* 

32-. 

intake of fluid through the supoiy channel 430' as described in reference to the jetting head 40o!" ^ 



transducer 434' bends slightly, thereby altering the volume of the conically shaped jetting chamoer 432- 
The change in volume of the chamoer 432' causes the expulsion of fluid through the orifice 433- 



A fourrn preferred embodiment of the jetting head is shown in Fig. 8 and is generally repres nteo as 
to 400" . The jetting head 400" is very similar in form and function to the jetting head 400 and wdi not be 
described in detail. The jetting head 400" comprises two symmetrical housing sections. The sections ma 
be connected together by means of apertures 409" and screws, not shown. When assembled, the nousma 
sections 404*, 402" form a T-shaped supply channel 41 0" . '9 
In operation, the jetting head 400" functions in a manner similar to the jetting head 400. The jetting 
head 400" is especially suited for use in the continuous mode, but may also be used in the drop on 
demand mode. In the continuous mode, the fluid is circulated continuously through the supply chann 1 430- 
allowing the jetting tube 432" to withdraw as much fluid as required. 

By way of illustrating and with no limitations intended the following information is given to further 
illustrate the aoove described embodiments. The comouter 700 is an IBM Corporation Personal Computer 
20 with 640 kbytes of RAM memory. The interface unit 600 is a Burr Brown interface unit model numoer p C 
20001. The blotter 800 is manufactured by Houston Instrument as model number DMP-40. Commun.cation 
between the plotter 800 and the interface unit 600 is performed through a standard asynchronous serial 
communication port. 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 comprises a nse time 
25 of approximately 5 usees, a fall time oi approximately 5 usees and a pulse width of approximately 35 usees. 
When the transducer 434 is operated in the drop on demand mode, the voltage potential of the puise is 60 
volts plus or minus 10 volts and the pulse frequency can be up to 4 khz. When the transducer 434 is 
operated in the continuous mode, tne voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse freouency can be uo to 10 khz. 
30 The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 inches outside 
diameter and .020 inches inside diameter. The tube is arawn to a closed taper in an electric furnacs. The 
tapered enc is then cut and ground to a desired orifice opening of .002 to .004 inches in diameter. Tne tub 
is cut to a final length of .945 inches in the case of the dispenser emoodimen: and ultrasomcally cleaned m 
acetone. After being cleaned and dried the large end of the tube is fire polished. If aesirec. tne onfice end 
35 of the tuoe may receive a coating, sucn as a hydrophobic polymer, to ennance droplet separation f-m tne 
tube. 

The suooly tube 430 is formed from .023 inch inside diameter and .38 inch outside diameter 
polyethylene tubing produced by Inrramedic Coro. as model number #14 170 116. During asserr.oiy. one 
end of the tubing is stretched over a warm tapered manrjrel. The stretched end of the supply tuce 430 is 

40 then inserteo over the large fire ooiished end of the jetting tube 432. The assembly is tnen ciean c and 
baked in a circulating air oven at 50 9 C. for 10 minutes. 

The transducer 434 was purcnased from Vernitron of Cleveland. Ohio as model number PZT-5H Tne 
electrodes 437, 436 are comprised of nickel and are seoarated from eacn other on the outer surtare 0' me 
transducer by aooroximately .030 inches. The jetting tuoe 432 is inserted into the cylmanca 1 o.erc-ciermc 

45 tube 434 anc secured with eDOxy manufactured by Eooxy Tecnnology of Belienca. Massaciusertr as ti^e' 
numoer 301. The epoxy is aooiied a; tne junction of tne tuoe 432 and transducer 434 w.tr, £ synnjt Tne 
epoxy flows along the tube 432 msiae the transducer 434 by capillary action. Tne assemoiy is tnen' caned 
in a circulating. air oven a: 65 °C. for one hour to cure the eooxy. 

The contact pins 422 are secured to one of the housing sections 402. 404 with a droo of eooxy Tne 

so transducer jetting tube 434, 432 is placed in the housing such that the orifice end 433 of the tuce 432 
protrudes aooroximately .030 incnes from the housing 403. 404. A drop of silver eooxy is piacec oetween 
each contact pm 422 anc the transducer 434 to ensure a secure electrical connection. Eooxy is aisc aooiied 
to the junction of the nousmg 402. 404 and supply tuoe 430. The other section of the housing 402. 04 is 
then screwed into place. 

55 The Denonery of tne housing 402. 404 is sealed with a caoillary sealer such as cyclohexanone Eooxy 
is then aadec arounc each contact om 422 and around the orifice no 433. The assembly is then caned in 
a circulating air ov n at 65 °C. for one nour. 

The filter 300 is formed from a ooly ster mesh witn 30 urn oor s and oosmoned m a ooiyorcryiene 



12 



0 263 237 



housing. The air pressure suoDiied to th r servoir 200 during continuous znnttng operations ts reguiatea at 

approximately 10 to 30 psi. 

The reagents usee have trie following characteristics: 

Printing (drop on demand mooei: 
s Fluid viscosity range: i • 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

Printing (continuous mode): 

Fluid viscosity range: up to 50 centipoises 

Fluid surface tension: not measured 
to Dispensing (drop on demand mode):. 

Fluid viscosity range: 2 - 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 

presented in Figs. 9-11. Fig. 9 is a graph of the mass of a droplet as a function of aropiet emission 
;s. frequency for three fluids. The viscosity of the fluids were 1. 5 and 24 centipoise and the transaucer 

excitation pulse width was 35 microseconds. As shown in Fig. 9. the higher fluid viscosity results in a more 

stable operating performance of the jetting head. Fig. 10 is a graph of aropiet velocity as a function of 

droplet emission freouency for fluid viscosities of 1 , 5 and 24 centipoise. The log of the total fluid weight as 

a function of the tog of the numoer of droplets emitted is shown in Fig. 11. The fluid used has a viscosity of 
20 2 centiooise. a surface tension of 20 dynes/cm. and a density of .8 grams/cc. The transducer excitation 

pulse was 80 volts ano the excitation frequency was approximately 71 1 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 

tensions. Although in some cases viscosity modifiers, such as glycerol, dextran. glucose, and the like, may 

be added to increase tne viscosity, a few reagents are adversely affected ty such modifiers. 
25 Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 

Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 

may have small satetite drooiets which reduce the accuracy for metenng and dispensing aoolications. 
. However, even with the sateiite drops, sufficient reagent is adequately delivered for most print applications 

without a substantial decrease m print quality. 
30 Glycerin may be used as a viscosity modifier to improve jetting reliability and to prevent obstruction of 

the orifice arising from evaporation of the reagent fluid components. Glycerin has been found esp cially 

beneficial for those reagents containing particulate material. The evaporation of the fluid component results 

in a concentration of glycerin located at the orifice. The plug of giycenn substantially prevents further 

evaporation of the reagent fluid. During the next activation cycle of the transducer, the piug of giycenn is 
as expelled from the orifice. 

When operating m the c:soensing mode the volume of the drooiets can be varied to substantially 

uniformly contain from 100 pico-liters to 1 micro-liter. The droplets can be produced at a rate of 

approximately 1 khz to 8 knz. When operating in the printing mode tne size of the pel maoe by each 

droplet measures approximately .001 -.01 2 inches in diameter. 
40 A copy of the program used in the computer 700 for a printing operation is attached hereto as Appendix 

A. The values, manufacturer and manufacturing part numoer of the circuit components of the jetting control 

unit 500 are substantially as follows: 



45 
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Ref. Mu— e r a 1 
cf Ccr.sor.er.-r 

R39 , 43-48 , 57 , 

58 
R56 
= 3 
R34 
R50 

R12,22,2=,4:, 

41 
= 55 

RS 
R5 

R7 , 12, 25 
R57 

=31,53 

R29 

R51 

R15-18,2S-2S, 

54,55,54 
R52 

R30,33 
R21 
Rl? 
R3 5 
R43 
= 50 
R37 
= 5 
= 11 

U2, 11, 14, 16.22 

C21,41,45 

C24 



:i.2.2,55,SC 

:S3 
:35 



Description 
and Value 



RES . lOKOHT'-ijWATTS'.'C . F . 
RES . 1500KI-:jjWATT5!;C . F . 
RES . 15KOHI-:-<V.-iTTS%r . F . 
RES . 15K0H:-iiiV;inS 0 :C . F . 
RES . 2 . 4KC:-2-!-<WAT71V-: . F . 

RES . 2 . 4XOKM>jWATTS e .; . F . 
RES . 2CKOrD*i J WATT5%C . F . 

RES . 220C:-D:v/;atTS%D . F . 
RES . 2 TOr-I'IlM-AZTrT.r . Z . 
RES . 2KOHI-:irV/ATT5?:C . F . 
RES3 . 5KOHI-:isV;AT75? e Z - ~ - 
RES . 3 . 9K0E-:^WATTS%C . F . 
RES . 300KCKT-:> WATTS'; : . F . 
RES . 3 OKCHT-IisWATTir,;:-: . F . 



Mar.uf a::urs: 
and ?ar_ Nc . 



RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
CAS 
CAP 



CAR. AXIAL A.LUH ELED. 

47co c:-:fs25vdc 

CAR. RADIAL DIPPED TA2JT 

10KF(?25VDC 
CA.P . RADIAL DI? RED TAJ.T. 

1HF§357DC 
CAR. RADIAL DIPPED TA.MT . 

47MFj:iC7DC 



. 4 . 7KOKT-!i J WATT5 °-C . F . 
. 45 . 3 KOHT-IisWATT I'," . F . 
. 47CHMi 4 -WATT5?;C . F . 
. 4700K!-!^V'ATT5 4 - . F . 
. 47KOHT-:sjV;ATT5? ( .D. F . 
. 5 lD0HI-:ijV;ATT5 o .C . F . 
- = . 2}'.CHXijWATT3 ■ ^ • 

. 7 . 5:-:c:-r-:v---'A.TT= s :c . f . 
. 75kc:-d-:-v>-;atts';£ . f . 
. 7s:<o:-L"v»7atti?;:-: . - . 

. 620CKI'!SjWATT5^C . F . 
.DIP NE7WRK . 4 7 KCHM 

.a>:iali:-:fs25cvdc 
. ax i al2 2 cm - $2 5 o'oc 



DALE RL079242G 



DALE RLC79303C 



DALE R.\'55D45 32F 



DALE RM50D7 552F 

CT9 75I-1R47K 
r-L-.LLCRY 4TC5 5 
MA1LCR" 

L?221925CC~?3 
•'-ALLCRY 

TC3472V22 51.' " ~ 
■ KEMET " 

T35OE106MC25AS 
KEKE7 

T350A1C5KC35AS 
KIMZT 

T25CH355KC12AS 
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Ref. Numeral 
s of Csrr.ssr.er." 

C54 

C57 

10 

C49 
C29 
»5 C5 

C30, 25, 37 
C4. 7 

20 

14,3,5,9, 11-19, 
22.22 .25-28 

C31-34, 27, 42, 43 
47,4=, 50-52 
2S C55, 55, 59 

C4S 

CR7, 3,9, 10, 
11, 12, 17 
jo CR1.2.3.4 
CR5 

CR5, 12 , 15 

CR14, 15 

Us. 13. 15, 17 
as Q2 . 9 , 12 

Q3, 10, 11 

Q4 

2 T 

Ql 
40 £3,14 

513 
US , 27 
U23.26 
U7-10 
« U30 
U24,25 
U2e 
Ul 
U4 

50 ' J 3 

U12.29.31.32 

U1S, 19,20,21 

R24, 42, 63 

R3e, 49, 52 
« R20 
" R14,31 



Description 
a~d Value 

CA.P.RA.DIAL SILV MICA 

100PF300VDC 
CA? . RADIAL SILV MICA 

20PF300VDC 
CAP. RADIAL SILV. MICA 

3 9PF3C0VDC 
CA? . RADIAL X7R MLC 

. 015MF£5GVDC 
CAr. RACIAL X7R MLC 

. C22MF£50VDC 
CAR. RADIAL Z5U MLC 

. 315MFS50VDC 
CA,? . RADIAL 25U MLC 

. 01MFS50VDC 
CA.? . RADIAL 25U MLC 

. 22MF<?537DC " 



CAP.VARI.2-12PF. 
D1CDE -SIL. 

DIODE SIL. FAST 

D I CDF SIL. FASTH I VC LT 

DIODF SIL.RFF.2 , 5C0VDC 

DICDF SIL . ZENER3 . £ V . 2 5WA.TT 

switch s position di? 

TRAN3T0R . C CMS ON ! :? 1 1 

TRAN3T0R . COMMON ?N? 

TRANSTOR . HI VCLTHI FRFQ . NPN 

TRANSTOR . HIVCLTH I FRFQ . ?N? 

TRANSTOR . KIVOLTHI I NPN 

TRANSTOR . HI VCLTNPN2N2 439 

TRANSTOR . HIVOLTPN? 

IC 1-3HCT 74HC221 

IC 1-SKOT 74LS221 

IC COMPARATOR 741-10538 

IC CONVFRTFR DAC0300 

IC COUNTER. 74HC192 

IC HI SLEW HI VOLT 0? AM? 

IC HYBRID DC/DC CCriVERTER 

IC CC DRIVER SN7406 

IC OCTAL LATCH 74HC374 

IC OF AT-!? LF255 

IC OPTO ISOLATOR 

?OT100KOHMisWATTlC% 

? CT 1 OKOE-BsWATT 1 0?; 

?CT2 5 XOKHssWATT 10% . 

? CT2 XOKMS3 WATT 10% 



Manufacturer 
and Par. No. 

fLAHGAN 

SD51C1J3C1 
KAKGAN 

SP122C0J301 

kahcan 

SP1229CJ201 
KEMET 

C315C1C2K1R5CA 
KEMET 

C315C223K5R5CA 
KEMET 

C215C153KSR5CA 
KEMET 

C215C1C3K5R5CA 
KEMET 

C322C22 4M5U5CA 



JOHANSEN s952s • 
ITT. FAIRCHLD . 1N414S 



GSML. INST. EGP13D 
CENL. INST. UF4CC7 
NATL . SEM I - LM2 £ 5 2 - 2 
MOTOROLA 1N4522A 
CTS 206-5 
MOTOROLA 2N2222A 
MOTOROLA. 2 N2 9 C " A 
MOTOROLA MPSUi: 
MOTOROLA MP5U5C 
TI ,MCTCRC1ATI?45 
MOTOROLA 2X3 43 9 
MOTOROLA MJE5"21 
NATL . SEM I MM" 4H02 2 
NATL. SEMI DM74 1=22 
NATL . SEMI MM~4KC5 2 
NATL. SEMI DACC5C2L 
NATL. SEMI M!-;-4:-:C:9 
3URR- BROWN 2 5 54 -\" 
BURR- BROWN MOO EL ' 

natl. semi dm" 4:=:-: 
natl. mh74hc3~4n 
natl. semi lf23 

HEWLTT-PCKRD H 
BOURNS 3522-1-104 
BOURNS 3 522'.;- 1-103 
30URNS 3522W-1-253 
30URNS 3 522W-1-2C2 



IN 
IN 
5N 

3N' 



5H 



125c: 
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20 



25 



30 



*ef. Numeral 
VRI 



, -cwsntn: ar.dV.r:!" Manufacturer 



s?o 5S3ULAT0S 5 '/DC v 

« 4 RZS * ^^WATT-C . F " • " 3 4Cr " ^ . C 

R32 i^^WATTS-C . F .* 

si • * • 3^0HT'DsWArTSXC . F 

SES • lOOKOS-HbWATTSSC . F 

?, A 2? RES.270OHM a.MS5DlCC2? 

'5 RZ5.47COEH 

J*£* ?.S3.47CCCHv 

?=r.ico:<oHn 

... ?CT.1CK0HH 
-rr:'---' RES. 22CCKH 



-..i ... S23.22CKH 

szs. 470S5.:. 

X::r CAF.1CMFC2 5 v?c 

SlSo CAP.10C00 ?F 

D10 ° DIODE 

Qioc.ies tsanstor ; N414S 

Qi=:.:c2 -^an^or 2K2222 

P133.1G4 ^SmIm 2N3? 06 

«3 , *wS 



uioa 



:C LINE DECODER 



4LS04 
74LS133 



55 



40 



Of course, ir should be understood that a wide „, 
Prefer e.n=o a ,.ents csscrioec ap 0v '4 ZtZVe m °™™™ ™ " ™e » me 

etecmc sucn as magneto-str.ct.ve. e.ectr 0 -strict,v e an d eVZT C0Ulfl °' 3 ty06 0,ne ' *™ 
'orego.ng aeta„ed descr i0tl0 n be regarded u^i^^^"^ " ,s the ^ '"'enoed that tne 
-« * tne followng aa-ms. ,nc.ud,n g a? egu.valent l ch a rTl l ' 1 ^ ,0at * oe un<Jers '^ »* 

aients. wh,ch are mte.noed to define the scope oi this .n« nnon. 
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Rtagtr.t -ii Print ir 
fttaotnt C^libntioo 

OHstt Data ;:j-cf LiAl 



P&St I 
12:24:57 

IW Ptrsonal Coaoutir BASIC Casoiltr V2-00 



10 


0030 


0CO4 


0O3A 








MAX 






VVVt 




AATA 






UV4W 


MAX 


15 


OAtA 
WW 


Vial 








AATA 


M*4X 






Aft3l 










0030 


M5A 


20 


0030 


0O04 


0030 


MC4 




0030 


0004 




0030 


0904 




0030 


CO 04 




0030 


0004 


25 


0030 


CCQ4 




0030 


CO 04 




0030 


C004 




0030 


0004 




0030 


0004 




0030 


0004 


i/i 

JU 


0010 

VV4V 


MAX 




00 10 


AT AX 




OATA 


AO AX 
WW 






fcrtAX 






Ww# 




AAtA 


AAA1 


35 




AAAX 




AAtA 


AAAX 




QQJO 






AAtA 


AAA! 












MAX 


40 


0030 


0004 




0030 


0004 




0030 


0004 




0047 


0004 




0047 


0004 




0041 


Olrt 


45 


004t 


Oltt 




004C 


oia 




004* 


Olfl 




005? 


0200 




003! 


0700 


50 


0040 


0700 


004A 


02: i 




00AA 


0704 




007* 


0704 




00B3 


0704 




00AD 


0204 




00B0 


o::a 



icfl lT:7L£:**«ictst ht rrintir' 
X?Sit - '?EAC*' 

WHO - l. A. CnttoU 



ISUiTITLEi'RufliAt'Mifcrition' SUXESIZE: 132 



cspnioHT id mi abbott laboratories 

REVISION - 2.; 47-01-84 N4£ Aicrofab todificatiMt 
- 1.8 02-1 1-So NAE Criatioo of iiitul colt 

STSTDI - This cod i can only bi eoaoilrt by tht BASC0H 
* CVJUa, it nil oot run itfiaw tht INTERPRETER!! 

Tht ni^tnt calioratt todult prtstntt a unu vitft 12 ittss arranatd 
ii 3 c:hus of 4 rou. Tht trroa ktyi alios tovtttat around tht 
tailt, tnt * and - km incrtitnt or dtcrtttnt vtlutt in tot Hrtt 
coluin. md tht tflttr Kty titcutts cottanas in tht third colua. 
Tbt Mcoat colutn it an array at ASCII strings rtprtstnting rtagm naat, 
conetntratica, dtnsity, and viscosity. Tht valuts tnttrto m colutn ont 
art drop frtqutncy, pulst tidth, stroot dtlay, and nozxlt ngaetr. 
Tht couinds in tht third colutn an itart/itoi, load, tavt, and tut. 

'CAT4 0ICT1CWWT 

HEWt Pomttr to alien atni ittt it activt (0-1 1) 

HENUI(I7,1) Array (or ttriogs «sti to fttpUy tht ttau 

10(0(17,41 Amy *or nuiotft m tht ttvm display 

OlfFl OiMKtntial to tott ACNUl *t arrw kty input 

TYrtl Painttr itc dtirmq aaia scan to dirtct action 

CETtUFI Stari^t or urinq input t'rci itnu display 

W "f stiA4tioa tor sin;lt ktystrott inputs 

nil! Stnr.q tftirt Mltnut is suilt for rta^tnt data filt 

(EAMAflEi Stri.i; tA*rt rta^tnt natt is stortd 

IX Roi to 3;splay sptcial graphics cflaractir in atnu 

CI Cclum to iiselay sskuI araphtcs characttr n atau 

SskuI oripftus caaracttr u rtad itto htrt 
OLB.ARF.VAU'n Iflt»;tr mUi for stttinq pulst atoll tudt 

0IS.VAU VaUt tit to digital port 0 to inc/dtc aaplitudi 

S3 IS ASCXT. CALIBRATE STATIC 

lUSUJStW,!)^!!?^) 

SOSDt II1TIAII2E: rut init. valutt and stt scrttt 

»iu rrm o i 

VtfZl « 0 
AS • 



WILE U • 

At • :unt 

IF ACTIVE • t 
KEX0 



a ho ooaHTME < nm Dita sosui pen.dcmi 
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5 



10 



75 



20 



Bturnt Jft 
Rnotnt Ciii 



Printir 



25 



30 



Offut 


Oiti 


OOBO 


o:oa 


ooca 




ooco 


OZOA 


00F4 


o:sa 


0! IB 


o:oa 


0140 


020A 


0163 


o:ca 


013A 


OZOA 


oict 


o:oa 


0IC2 


o:oa 


OIOB 


o:oa 


010B 


o::a 


019F 


023A 


o;£i 


020A 


o:u 


o:oa 




OZOA 



Sour: i Lint 



07-U-B* 

r». . 12:U:57 
IM Ptruml Catoutir BASIC Cctoiltr W.30 



IF Al 
IF Al 
IF A* 
IF Al 
IF Al 
IF Al 
IF Al 
IF Al 



• CH3IUJJ HPS! t J: 
« •♦' THEX TYPK t 2: 

• ••• TK0I TTPR • 3; 

« CHRMO) ♦ CHSII72J TKEJI HP*! « 4i 
» CHRIIO) ♦ CXRS180) TH£» TYtfX • 5: 
« CHRKO) ♦ CM! (731 THEM TTPSI • 
« CXRIIO) ♦ CHRM77I THEM TYPC* . 7. 
> CKRII47] AMO Al < CHRItI2;j not ttpex 



txteutt <er) 
'incrtatfit vtrublt 
'dtcrtuat tirublt 
'up Arroi kty 
'dean vro« kty 
'Itft irrea kty 
Viqftt irrov kty 

■ 8:' iKii 0 - x 



0« TTPH SC3UB Tl f T2, T3 f 74, T5, T4, T7, T8 



UEXD 

TTfPEI « 0 

EXIT SUB 
Wi IPAGE 



40 



45 



50 



55 
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mi 3 

5 ReiqtfK Jit PmMit 07-14-U 
Riiqm W;ir uion 12i2A:57 

IER Pirioiul CoMutK BASIC Csaotlir V2.0O 

Offsit 0*ti Swrci u*-» 



TO 



01EA 0203 

oiea o:oa 



.,«• SSWUTWES FCR TM5S0WLE 



75 



h« ■ T1 . '<c>> tiKuti c satin* 

! « SI I? WJl < It TKW TYPE! « 0:RETURH: Hit to priat mm. no icti« 

?£ !« WSUB HA, T18, TIC, TIB 

02U 020C if «£Wl < 13 Tffil WO • 0 

C22C 02CC ^TW« 



?&r Tlfc 'stirt/ito» droo «lo» 

o£ ^ «WC12,0I - -START- THEH KSU1 START. IHK 

027? 020C KWHtt«0> « IBM 

029* 0210 eCU» O,7:S0SUB USWNI 

20 02AC 0210 ttTOW 
0280 0210 

02B0 0210 5T«T.IHJ 

0285 0210 TOT! • 'STOP 

fl-fiF 0210 'WUOQT.OM: io Mduli «I 

£ 0210 l»« 27 t :;PMHT -MITM*, 

25 02FI W0 • 1 

02FB 0210 ttTUW 
02FC 0210 

02FC 0210 STOP, IKK: 

flint 0710 TOT« » START* 

? ! CAUDOT.OFF: l. total t PCI 

ono 0210 ftCTivn-o 

0344 0210 «UM 

0348 0210 . 

35 SS S5 T,,J » "-w'lS* *» m « » Mt •"•♦"•■""w Mnlf,,CTB 

03ft 0210 

o»i «»• sosuisaa 

«« !"! if n < ««»■« • » M * 40,0 fOUW , . 

J !«' wwu ::,io-i.aiir.£Nui ik. in «oun»,m' m 'ow*'; 

40 o«o< ui« «■ *" ttT! , " t ,or 4 k,,hit 

0401 MM S™ 1 
0«QC MM 

MB Mil «■ MUI r« BWI « Ml »•* Mlttre MU fill <or rid 

45 oui Mil «»W «M« ut0 '°" ' rt,,,, " tT 

Mil 0J11 WW M.**".*" rui *" Utu " 

« n Mil WW •i,*W«.M« ru* itroM «iU T 

° " 1ITOT ll,HWU(J,01i Vtt< Kin Ktt 



0(A£ C21I WW ....,«« "" 

MDI nil WW •l.lOTW.Wi r.uruitut 

SI mi! iKnn u.swucs.o., v... ..n u» 



«. «•! |«IM,l«Ulrt.Hi Tt.« Wtmtr.tio. 

osn Si ww ii.sw»m.»" 

"!! n!i wwi ii,«Ew«w,in •fi«»""'H«« 

osai 0:11 

55 
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S Rnqnt iti ?r intir 

07-14-U 

0H»4 3*t* Scurct Lint IiR CflMttt|r g.- IC -^U'jJ J 





q:a? 


C218 


11: 'dont nth diti hit 




0180 


0218 






o:bo 


0218. 


cpen "seadef.rjp* rcR output as h 




osa 


0218 


PRINT ll.nui: sm filttuot is dtfaalt fill 




0302 


0218 


PftlNT ll,!!EXUi(4,l)i im tht directory niu at Mil 




0SF4 


0218 


aca u 




03FI 


0218 


6CSU8 0ISP.P6MS: thoi ill ptrmttrs 


T5 


0601 
06G3 


0218 

3218 


return 




06O3 


0219 


TIC: 'uvt riiqtflt profit 




060A 


0218 


IF RDfUfU.l) « ■• THEN LOCATE 23 t l;PMNT 'Rraatot Nat it not uicif iH*"6DSUB 




054C 


0218 


VEX *REAOIR.RJP a FOR INPUT A3 11 




043F 


0218 


INPUT ll t R£ANUftX 


20 


0671 


0218 


aost n 




0478 


0218 


If REAKUHX ( 80 THEN 6070 SAVE.REA 




0687 


0218 


LOCATE 23,1:PR1KT •Oirtctory it Full (80 rtdqtnts ui.)' 




04A) 


0218 


SSSU8 ANYtEY: RETURN 




06AS 


0718 


SAVE.REA: 




0480 


0218 


. fiytJI SEARCH 


25 


0686 


0218 


IF 11 ) REAWRl THEN SCTC SAVEREAt 




06C7 


0218 


reanw: ■ i: 




06a 


0218 


COLCK 13,0 




Ottft 


0218 


LOCATE 2!,1:FRIXT ACJfUS 14. 1 J ; " alrtidy tmtt. RnUct it itth om valuit? 




070C 


921t 


tt ■ " 


30 


0716 


0218 


WILE AI • *• 


0733 


0218 


ai • mat 




07^ 


0218 


MEMO 




07:: 


0218 


LOCATE 2! f ::PRlNT SPACtir?); 




074F 


02IB 


IF AI • 'T - CR AI « V 50T0 REPLACE 




0778 


0213 


RETURN 


35 


077C 


oris 




077C 


0218 


SAVEREAl : 




0781 


0218 


KIU *^&9!R.QL3*: itlrtt old bKUo dirtctcrY 




0788 


0218 


NANE •?SA3ja.s;p' AS CIO'; tavt old dirtctory 




07?: 


C218 


c?en *t£A3ift.:i:- fcr :*.tyr as m 




07*3 


0218 


CFD *EEA3IR.RiF' PGR Cy;PUT AS I2i $tt go fin dir 


4Q 


0713 


021S 


0713 


0218 


INFUT tl,RCANURX: rtid nutotr ot dir tntrits 




07C7 


0211 


REAJtgil • REANUNI ♦ 1: incrtm ly 1 




om 


0211 


NRITE l2,REANUni 'uvt io at* dirtctory 




0711 


0211 




07E! 


0211 


F» 1*1 TO REAKUKX - I 


45 


07FA 


021C 


LINE IVUT 11, AI: rui tntry frot old dir 


0807 


071C 


PltlNT 12, All if iti tntry in no* dirtctory 




0817 


021C 


NEXT I 




0832 


07M 






083 


0220 


OW 11 




083? 


0220 




50 


083? 


0220 


PRINT i:.PiNUI(6 f l): >ritf om ntry to am dirtctory 




0838 


ono 


COSE 12: 'dont with dirtctory 




086: 


g;:o 






0862 


o::o 


REPUCl: 




"867 


C2T0 


PRE! ■ RI6HTI(STRl(REANUni) f LENtSTRI(REA<tUHXl)-l) ♦ 'REA.RJP* 




0888 


o;:o 



20 



0 2JJ 23/ 



Rnqtat Jit rrtntir 
Rfiqwt CilitrittOA 

Qffstt 2«ti So*rct Lint 



PA6E 5 
07-14-84 

12:24:57 

Pirsoful Cctavtir BASIC Coioilir V2.00 



70 



T5 



2C 



0881 
0890 
0811 
080G 
O8F0 

mi 

093F 
0962 
09A2 
0984 
09Ai 
09CI 
Q9EA 
09EA 
09F1 
09M 

oao; 

0A13 
25 0A33 
OAJC 
OA40 
0A40 
0A4S 
OASi 
30 0AA8 
0A4F 
OMF 
0A74 
0A81 
OAAS 
OAAE 
0AC1 
OACi 
OACB 
0A01 
0*01 
0AQ4 
0A£4 
OAO 
Ufl 
0AF1 
OA/A 

otos 
oBor 
ottf 

0829 
0848 
OISI 

089F 
OCOt 
OC10 
0C1D 
0C22 

55 «a» 



35 



40 



4$ 



50 



ono 

0220 

0220 
o::o 

0220 

o:n 

0720 
0720 

ono 

9220 

ono 

0270 
0720 
0770 
0770 
020 
0220 
0270 
0220 
0220 
0270 
0770 
0779 
0770 
0229 
0770 
0770 
0770 
0770 
C770 
0779 
0779 
0770 
0270 
0770 
0770 
C229 
9720 
0221 
9221 
0220 
0229 
0224 
02S 
072C 
022 
072 
972£ 
072E 
073 
077E 
022 
C77E 



CHJI MUS F3 OUTPUT AS It: cmtl oi« iitttrn ditl fill 



MITE tlJlSNiO.O): 
MITE it,^U(1.0): 
tflTE ti f AGIU(2,01t 
MITE H,aE.VUC,0): 
MITE M.tfXU(4,0H 

win ii,n£KU(; f oi: 

WITE ll ( HEJn»<7,l): 

am ii,.iexui(8,i)i 

BUTE U t nEXUIt9 t l): 
MITE ll t flESUSU0 f !1s 



start frtqatncr - 

star I tiolitudt 
"stori itrooi diliy 
'it or i pain lidtH 

stori rtsi tin 

stori fill tilt 

'stori conctfltf itioo 
* tor* dtnsity 
'stori mcosity 
'stori surUct tin si en 



aOSE II: 



'dont nth diti Hit 



ra •r£A3£f.r:?* for output as ii 

MWT It.FlLES: sivt filinm in difiult fill 

WIST tl,nEXUSU ( l); soi tni dincterr mm *s mII 
CLOSE It 

Brrasx 



SEAftOts 



OFEV *REA0».iUP* FOR KPUT AS II 



INPUT ll,REArwtt: 
II • 1: 



SLOOP: 



rtid nutbir of pitttrn i* dir 
sit mtry point ir 



rtid Aitt pittirn nui froo dir 
THEM SGT3 SEARCH. OCXE: CMiirt run nth dir Mtry 



♦ 1) TXEJi 6QTC SLOCPi'chict for dont 



LINE IKPUT It.Afj 
If AS » REKiiSifc,] 

ii « i: ♦ i 
if- t: < tfiEixuH; 

SEAR©. 00*: 

aosE tt 



TIB: rtttro nth no chuqt to tut mint ciiibriti 

PWIT 83, B W; 

CLOSE 13 1' don coi ca&am! 

Hi 'irotfti try 

IF QUI ) 5 TMD RETUSI 
OTM£ • Tin 
OaiATlKE • «VTIXE - X0TIRE 
0L0T1RE > ttVUKE 

IF 0&TATIRE > 0.13 1MEX Win • t ELSE WITX » ItULTX ♦ 1 

if mu ) too no win > 100 

«aj(nrwi,oi * rau<flEmii,0) ♦ remuihexui,3) • mn.ni **dd iacntMt 

IF REKUCKEM1.0I ) RENUtHEXUl,!) THEN BEMJWEHUI.O) • «£KU tflOCUl, 1) t chick in vilu* 
Cast 13,I:&SH OISPJEWhRETURIi 'shoi in Ttlut 

T3: 'proctsi Uy 

IF flCHUX ) ! THE* IETURI 
KENT IRE • TISEI 



2i 
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5 

SfiOMt Jit Pnntif 

PAfi£ 

0"»t 04ta Sourct Unt ""2! 

I8fl Ccuittr BASIC Cc«a,r'v 2 

to ocb Oa: car;;;n£ . kemt:« . oldti-e 

°c« o::e x:t:se . kc»t:jk 



0C55 022£ IFC ^ rAT I«>0.i:TK£X«ULnM£IJ£ianTl,rj,n 4l 

*n oa if hru > 100 mn wltz . uoo 

0C8t 022E AEWIREXUI.O) • HCNUMENUX.O) - HcvuimiR -1 . . 

, £ s as wffi^?«,a!sr 

004t 022E «.«'U"« UiOi Mi film 

™! 022 " J >kni «p irrn ktr 

0ME 022£ IF «»U: RCO 4 « O THEH RETURN: . 

0074 02IO ■M«w.«*iUMt aovt p 0int tr tip eat 

20 llll «™ f3! -procH, do.« irro. ur 

0079 0230 IF «W: M3 4 ■ 5 TH£X RETURN* * . 

*W 02W 0IFFI . ,: 60 SU8 " ^ * -lfM " 

0DAO 0230 *-nwu.Kt,jR». iw ^ ^ 

0230 TAi >ec«s ].« irro. i„ 

0230 I p I»T{«£MUI / 41 « 0 TK£a R£TUtt „ un . , 

«s sffsttasr •"•as*- 

0£0F 0230 *••• POMttr ont right 

o£5f o:m wile it <> aanui 

35 g 0 " : ; UMTS H.«7:M:« JMMIK), 

oebi o::< miu . „ . .. 
S* 0°:": 

oer» o::4 , EW !F 4CT:v " ' 1 m 1BB, "« < ««n the* scsui pen.ochii 

'0°"! S w.*"«mr« , Mla , „ ^ 

104F «H «mi»kwi.o: « :e.v 

55 0:3 L0KTE IS.JCcMMT S?AC£l!«0»j 



22 



I 
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Stioftl Jtt Printir 
Riiqiat CjiikrttioA 

QHut UU Sourci tint 



10 


1088 


c:3 


CSL3 0,7:SCSU8 DIS7KEHU 


109* 

ion 


023 

0238 


(STUB 




109E 


323 






10 A3 


0238 


REMUItRCSUl, 1) * KEYBUFt 




I03f 


023 


LOCATE 25,:0:PRUT SPACE ft 40); 


75 


IODC 


023 


COLOR 0,7:S0SUI OISPHEHU 




iOEE 


023 


RETHRI 




;of: 


023 






tor? 


o::s 






10F7 


023 


MWTItt * TIKES ♦ 1 




1107 


0238 


PRUT H/V; 


20 


1117 
HIS 


0233 
023 


RETUR1 




ins 


0238 


AXYXCTl 




u:o 


023 


LOCATE 25,44iPRl)IT § Stnk» *ny kiy..\ 




113 


023 


A$ • •• 




1144 


0228 


WILE AS • 


25 


1153 


023 


Al ■ [KEYS 




USD 


023 


VEND 




tuo 


023 


LOCATE 25,1:C0LM I5,0:«»T SPACES (79) ;tCQLQR 15,1 




1194 


023 


RXTUW 




119A 


023 






119A 


023 


UEKXEHU: Vitt old itti in yfllot. point to ind htcjhl ight (ir» itn 


30 


119F 


023 


COLOR 14,0:63SU8 OISPREHU 




1181 


023 


AENUl * AEHUl ♦ 01FFI 




UBD 


023 


IF AENUI « 11 THE* «»tu: • 10 




UCF 


023 


IF AEXUI > 15 VAVi PEMiil • 13 




tin 


073 


COLOR 0,7: 50 SUB DlS?»tWU:*CTWl 


35 


UF7 


023 




UF7 


073 


INITIALIZE: 




HFC 


023 


'ciu«o» to skdaA icrtt* 4*4 ditoliv imhois 




MFC 


0238 


SCREE! 0,0,1, UC5L3R 7,3:CL£:L3CATE 10,23:PRUT ' Inttul utnq n««« OupUy't 




1240 


073 


LOCATE 12 ( 3::PRUT 'Plm* out... 1 




125 A 


023 




*v 


123A 


073 


'laitiilizt vtritftttt 


125* 


023 






ISA 


073 


ACTIVE! • Ot' aot priAtsif 




12A1 


073 






1241 


073 


"UitiAiiit plottir coi c ft into 1 




1241 


073 




45 


mi 


073 


OPO •CflJU:2400, 1,1,2' AS 13 


1273 
1291 


073 
023 


PRUT i:,**,:UEC3,EFVl,H*; 




1783 


073 


'Uitiilixt difiUl port 




1233 


023 


SOB » 4 




123* 


023 


CALL 0I61TAL.QUTISCAD 


50 


1294 


023 


son • 0 


12A1 


023 


CALL OISITAL.OUTtSCRlk 'pull* nstt hot to tet uolitolt to OV. 




1211 


023A 


sen » 4 




12B3 


023 


CAU. D16ITAL.0UT(SCRZ) 




12C8 


023 






12Ca 


C2-3A 


ui hardurt oulit »Uth 


55 


12C3 


C23 


CALL SET.flOT.HOTHIH u toduli PCI 



PAfit 7 
07-14-84 

I2:24t!7 

tBH Ptrtettil Couittir BASIC tojiltr V2.30 
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5 Rnqant ;«t frmx 'J 6 * * 

Ruofftt Caliiratiot 07-14-44 

I2:24i37 

0*f«t- Qati saarct una IW PfrMB * i Coioutar IASIC Ccoailtr V7.C0 

, c 022 

120E 022 'Uitiilixt hi»« arrayf 

120E 0» «3TW£ ARMATA 

t2B 022 rai IX* TO 17 

IX! 073C «m «Esanix f oi,HEwinn f ii! 

T5 inc 022 fin n 

usr orz 

l3Sf 072 '»t Iriiuit rtaqant valuaft 

137 022 

138F 022 10010,0) • 2000: •fraauoner 

131 OCT «EKUtl,CJ » 0: 'aaolitula 

20 124 022 IOJ12,01 « I: *trooi 4* I ay 

IJ£0 OM 101(3,01 ■ 090i 'pulM «4U 

l^C 022 HOBU,0» • 470: 'ri« tiaa 

HU 022 101(5,0) » 070; Mail tiM 

1434 022 

H34 OCT IOJU,0J » 0: mm 

25 1432 022 101(7,0) « Oi contintratioo 

H4E OnC «£Wit,Ol » 0: 'amity 

1*8 A 02c 10111,01 « 0: yiacoiity 

HA4 022 flEWU0,01 • 0: 'uriaca twaioa 

L4C2 022 

14C2 022 OLfi.W.VALUa » 0 'initial »aUa 0* 0 vtUi 

30 HCT 022 

HC1 022 'chaaoa tctitt aiaalayrt icrtta to Urit icrttn to Iras ana display aaraiattrs 

HC? 022 

hct 0:2 SCREE* o,o,o,i:as 

uu one 

he* 0:2 ca» i::l2a;e 'Uasdit calibrate*; 

35 i;o7 072 caw ' 

1S0E 022 F« 1-2 TO 7V 

l3li oj2 LCCAIE 3,I:PRW 'J';: LOCATE 3,I:«WT 'Pi : LOCATE » t I:PI«T 'P; 

Uaf 022 "C17 I 

121 022 nn 1*4 to it 

15M L2ATE U:PRUT * J * ; : LOCATE MB:PRWT V;:LOCATE I,49:PRMT VjaQJATE I,80:PRIXT T; 

40 1401 022 *n 1 

1424 022 RESTORE TAKE 

1421 0Z2 HI TO 12 

1437 122 KM Rt, CI, IX: LOCATE RT,CX:rtUT Qftl(n)| 

i4U «a «n 1 

^ 1485 «« 

1413 0244 V*** t!trM h **di ft 9» and imtrgttiot* 

1403 02M BUR 10,0 

1491 0244 LKATC 4 ( ; 8 PRWT *OROP PARAAE7ERP: 

UAI 0244 LOCATE 4,:9:PRIRT 'REASEJiT PARAI4ETERP 

14C3 «44 LOCATE 4,71:MIMT 'C^UJiOS'; 
140F 0244 

50 UOF 0244 COUW 7fL»2 21,:3:PRNT 'Um 'pCSLOR ISsMMT CXRf l271iCHRlU2);CXRI(24)| 

1729 C244 PRIRT CH?.n:2):ChRl(24);CHRIt::Ji:>«l(23);:CG.0R 7:WWT • to Batman Mqhliahtid cursor'; 

174& 0244 LOCATE rr.:S:PRtST -Ufa # j:CRM 15:PRUT •♦•}»« 7:?RIRT • or V.CCLQR 1S:?RWT 

l7 |£ ww C3L0R 7:rRWP to urall cwrtnt valat up *r aei**l 

)7n2 o:u LOCATE ::,:i:PRT»T •j:C? fc OR ISifRIKT *0r - ;:COU» 7:PRUT* to ictivatt Mltction'i 
55 IBH 0244 
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TO 



75 



20 



Rfftqtnt Jit Printir 
RitqtAt Calibration 





Clfut 


D*U 


Sour ci Uai 


25 










ISM 


0744 


DlSP.PttrS: 




1811 


o:u 


'ii$|Uy 18 •»•« cftotcti ifl ytlloi 




1811 


0244 






mi 


0244 


coot m,o 




1873 


0244 


FOR RESJl • 0 TO 17 


30 


tan 


0244 


SGSUl 9:S?R£W 




1831 


0244 


NEIT SOWX 




1841 


0244 






1841 


0244 


'stt for rtiQtflt nut and hiqhli qht it 




1841 


0244 


KMil t *:C3U» 0,7 




1854 


0244 


80SU8 DI3PKKJ 


35 


18SA 


0244 






183A 


0244 


SCRKX 0,3,0,0 




I8if 


0244 






1873 


0244 


REH SPAfiC 



1 

07-14-84 
12iUtS7 

IBH Mrsou! Couitir BASIC CoiptWr V2.00 



40 



45 



50 



55 



25 
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Rttqwi ,'tt ?rintir 
RtiqtM Uliorttici 



1C 



OHwt Data Secret Lint 



IIR Ptr smul Cdutttr BASIC 



75 



20 



25 



1673 
1878 
1804 

isn 

1901 
1933 
196* 

xm 
im 

1*8 A 
198F 
19?E 
1981 
19C7 
19E3 

uo: 

1A04 
1A04 
1A0I 
IA24 
1A34 
30 l«7 
1A49 
1AS9 
IA99 
IA90 
1A9D 
35 l«A2 

ucc 

1AC3 
IAEF 

\*n 

40 IB09 
1115 
1122 
U3F 
II4F 
1041 

1891 
1193 
1893 
1191 
IBB4 



10 

07-14-84 

12:24:37 
CoiDilir V2.oo 



5C 



UC4 
UCA 
1ICA 



5:44 

o:u 

0244 
0244 
9244 
0244 

c:u 

0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
02U 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0248 
0248 
024* 

o;m 

0244 
024C 
024C 
024C 
024C 
024C 
024C 
024C 
024C 
024C 
024C 
024C 
024: 
024C 



:;>?REW: 

LCCaTE IttSUIK: m2W,(lKT(REKUX/4]i:8»2)M:ttNT(RE»JX/tf) 
PKIKT nENU*lH£WX,Ol 

IF BcXUt > 3 TKEN SOTO SHONSTXXNSi ' no ulut to riiuUv 
LOCATE (REWX TOO 6»»2*7 ( RE*U(REIWX t 4) 
PRINT USIH6 R£3niS4HEMIIX v lI ;Jl£SRI(BIEJIUX v 01 ; 
IF BEWJI > 2 THEM RETURN 
OK RENUXM SCSUB SET.FRE3, SET.ARP, SCT.OEUT 
RETURN 
SHCS7SI)iSt 

IF REKUX > 10 THEN RETURN 
LOCATE iREKUI fOD 4) »2+7 ( 48 
PRINT • 

LOCATE (HEHUI TOO t)*2+7,48 
PRINT flEMJS(RENUX,I) 
RETURN 



SH.FREQ: 

TEHP t NENU(O f O) 

CAU SET. DOT. RATE I TEHP): 

LE5X * :-(NTU7EAF*30O)/130Q) 

IF LESI < 0 THEN LE3X * 0 

SCRI • 4 ♦ <L£3X * 32): 

CAU OISITAL.OUTtSCRXJt 

RETURN 



it ooftilt PC! 



ScT.AHP: 



scri « cintihejwiksnu:,:) » ;:: / i«oi: 
if scri • aiB.w. value: ;heh seturn 

TERPX » SCSI - 3L3.ANP. Vital: 
XO.WP.VALUEI » SCRI; 
OIC.VALI * 4 

IF TERPX < 0 THEN OIS.VALX • 3 

TEAPX t A3S (TERPX) 

m XX * t TO TERPX 

SCRX • OIS.VALX ♦ I32IIC9X) 
CALL OUITAL.uWSCNXI: 
SW • 4 ♦ (32 « LESXJ 
CAU 0I627Al.CUT(SCRX)i 

«1T IX 



lit L£S itttmsitr 
u totfuli PC! 



'contort toils to binary n u to tr 
calculatt dtlta 

'upoiti old filut to carrtnt ulut 



'ptlu ftigntr x lu 
itt port to aoTMl 



SET.DELATj 

TW • REKU(2,0l 

CAU SE7.STR08E.CEUY(TEHP)i 
RETURN 

m IPA6E 



'U todulo PC! 



55 



25 
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5 



Rtietnt Jit Pfintir 07-l*-*4 
, 0 8t*otnt CiliirUion ;2:a:37 

I BR Ptrsoail Coioutir BASIC Coipilir V2.0O 



V •,'«••, 130,0,1,19 
uSVMt»M\13W.S,.S,.S,U 
YMftV*tO v lt.V 



QHut 


Oati 


So or ci Lint 




tBCA 


one 


'HHIMtMH DATA U5t3 9T IHla 




1BCA 


024C 




75 


IBCA 


02 4C 


AftROATA: 


1BCF 


o:*c 


OATA 'FrtfltttflCT 




1B01 


otic 


DATA *A«»lUudt 




1803 


024C 


OATA 'Strait OiUy 




I BOS 


02 4C 


DATA *Pulst ViOth 




1107 


024C 


OATA 'Hist lilt 


20 


1809 


024C 


OATA •Fall Tilt 


180B 


024C 


OATA •«*«*, ",0,0, 0,0 




1B0O 


024C 


DATA •Caactfltntioo\" 




IB OF 


024C 


DATA •DMiitYVV,O l O 




IBE1 


o:;c 


DATA •ViKO«ity , ,",0,0 




1BE3 


one 


DATA •SurUct Timioft', 


25 


1BE3 


02 4C 


■ • A A A A 

DATA ••,••,0,0,0,0 


IBE7 


02« 


ma** aPTtOTt 9* A A A A 

DATA , ST«kT , ,0,0,0,0 




18£9 


02<C 


_ . _ . mtl •■ A A A A 

DATA •LOAD*, ",0,0,0,0 




1IE1 


02«C 


DATA •SAVE',", 0,0, 0,0 




I BED 


one 


rata trvt?* ft rt a a 
DATA till , ,0,0,0,8 




18£F 


024C 


DATA ",",0,0,0,0 


30 


1BF1 


024C 


DATA ",",0,0,0,0 




l« 


024C 






1BF3 


024C 


TABU: 




UFt 


024C 


DATA 3,1,211 




tBFA 


024C 


DATA 3,21,210 




18FC 


024C 


DATA 3,69,210 


35 


1BH 


024C 


DATA 3,30,191 




1C00 


one 


DATA 3,1.198 




IC02 


one 


DATA 3,28,204 




LC04 


one 


OATA 5,49,204 




1C04 


one 


DATA 3,80,181 




1C0I 


024C 


DATA 19,1,192 


40 


ICO* 


024C 


DATA 19,28,208 




1C0C 


024C 


DATA 19,49,201 




ICOE 


024C 


OATA 19,80,217 




1C10 


one 






icto 


024C 


on sut 


45 


1C17 


024C 




IC17 


one 






23E»- 


02*C 





30424 lytM AviiUIlt 
43940 Brtt* Frtt 

50 . 0 «4rnifi9 Error (I) 
0 Stvtrt Errorltl 



55 



0 2S8 23^ 

hunt Jet Pri-ter 

07-05-34 

3ffS*t Bate ! S8re , Une 10M4.-13 

• SB Perscnal ; ;t3uttr 3ASIC CllpUer V2>Q() 

0030 oa:* 

0030 0004 



«; t «»* J« Fnnter ^BTITlE: "Pattern Entry,*,*, 

;»«StI - -PATENT- Pattern creauon, .education, and < ilin , 
0030 0054 

0030 0004 •AUTSCa . m a - 
00J0 0CC6 • "* - * tn,V0,d 

S £ CCPrSISHT (C) 1 985 ABBOTT LABORATORIES 

0030 0004 • J " Nfl£ Cfe,t,on " initial coat 

0030 0004 SYSTF* tk- 

CC30 C004 • ™ J " H ff "»»» >• «»«I»d by the BASCOH 

0030 C004 ' lt ""."t run-unair the INTERPRETER! ! 

0030 0004 'DESCRIPTION. 

0030 WW m and m$ ,0dUl ' * ,lB " U " r <° SAVE, OIR.ctory, 0 
o b. pr,."2: re?,lt " Unt 9U,r • P*tt.r,t 

vujq WJ06 * 

0030 0004 • D ^ o "! fc b0tt8,0Mh,,trM "- arro. k, y , 

point to the action to it taken n... ,. 
tion .itb the M< lh,n ,,¥ ««t that ac 

0030 0004 ' r i 

0030 0004 • '"'T Inth,C3 " > "other .,»« if 

Sow OW ' S8U< R£CTin » U ' or C:S - ""or. Him.. 
0030 0C04 'DATA DICTIONARY 

oo:o 0004 • samnja,., 51 u 3 , 

QQ3Q CC34 * r'WP-/o* 

0030 0004 " " J*"' '» «"»" craves icon 



0030 0006 
0030 0006 
0030 0004 



Count o< B «ii„ 0 < , leifnlJ ,„ , pm 

0030 0004 • r n . 

0030 0004 • £ n Current location of graphics curior 

'Wault i, 0.005-) dot space on the screen 
0030 0004 iflin rm» 

0030 0004 ' Z LD " ti0fl t0 priBt '"Auctions 

•t strings * lVlq ' *" $in?1, k »r-»trokes or i„p 

0030 0004 ' wviiim. 

) W " WlicB «« btino displayed (l ar 2 

0030 CC04 ' HQ, 

hted (0 - 4) tK t0 " l,ic ' 1 " nu >* tiighlig 

0030 0004 ' R »e flT i u k 

•tod .h,n printed **" " ti,M is to be repe 

0030 0004 jurp ynpF 

0030 0004 » tln ' •^'"".d pattern, dy " i,di,tin " t,t " Mt "'PM 

•»«"!. StT." or.. " COl " n SP " in « ^»«M • 



0 268 237 



10 



J5 Keiqent Jet Printer J}J J 

Pattern Litrv^sflif ication ^ -» 

10:46:13 

rcurci line IBA Personal Coioutir BASIC Ccaaiier V2.C0 

PATWHX Kuaber of pattirns stored in 

the pattern directory PATOIR.RJP 

DRDMI 0C0LX Roi and Coluan location to disoiay di 

rectory entry* 

MAKES Pattern nau to be LOADed or SAVEd to 

directory 

IX JX Counters used to LCAO or SAVE' the ele 

tent data froi/to pattern data file 

FILE* Nan of pattern data Hie 

TEHPX Wiich type of tleeent is beinq drann. 

1 « line 2 3 Rectangle 

3 * Solid Rectanqle 4 » Circle 

R.A6X San as TEHPX above 

STARTKSSf ENDHSSf Hessage display for startooint and en 

dpoint of eleient entry 

XXX til Starting cursor position for 

eleient beinq drain 

DXX oyx Delta I and t values used to 

re-position cursor after arro« key 

HAX1TEH The highest nuiber itei in th 

e current iwu display 

IS n Starting and ending I position of the 

•ena highlighting blue boi 

RADIUSX calculated radius of .a ci 

rele to bi displayed 
m SPASE 



50 





Offset 


Data 


20 


0030 


CCG6 




0030 


0006 




0030 


0004 


25 


0030 


0096 




0030 


0006 




0030 


0004 


30 


0030 


0C06 




0030 


0006 




0030 


0006 


35 


0030 


0006 




0030 


0006 


40 


0030 


0006 




0030 


0006 




0030 


0006 


4$ 


0030 


C006 



55 



29 
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»ea«nt Jet Printsr 

Pattern Entry/Rodif ication ?fi5£ 3 

07-05-36 

0«»t D.U io.re.Uw [SB Personal Coiputcr BASIC Caipiltr'v'.'oo 

0030 00C6 SU3 PATENTRY STATIC 
0047 0006 

0047 ° 00 * KIOTH 40:SCBEEN 1:CLS 

IZ 22 «»SCK5AT:(50,5J,CURS0R:(?I.NE)nj««4 ) 

007? 02A4 ^ " 0!IZSO!TXIO:BRID ' fl -°« 

007F 02A4 LINE (0,0) -(6,6) , ,8 

OOAI 02A4 LINE (0,31-(6,3) t 8 

00C3 02A4 LINE <3,0)-<3,4i 8 

OOE? 02A4 PRESET (3,3) 

OOFS 02M SET (0,0).(6,6),CURSORZ 

Oh 6 02A4 CIS 

0110 02A4 

C:« "« <M-«It,»Ol fI | 

0140 02A4 RESTORE INSTRUC 

0147 02A4 FOR I»l TO 4 

0,51 02M READ ROHZ,CCLI,A$ 

o» owe H£IT , «w.«^«i« *l 

019B 0280 

0198 0280 FIRST: 

01A « "80 HEMUNUH » 1 

01AA 02B4 SQSU8 SUBRENU 

0180 0284 

0180 EAT, PATElY™ * ' P " JIR ' PflTLM °' »TM«, 0 

01CD 0238 ' SOTO FIRST 

0100 02B8 

0100 02S8 REPEAT: 

0233 028A f - ,12! I 6 ^ 1 ' 1 "' hoi 

.... L - -» T * *i,l: INPUT; 'E.'ttr I Ant Q(<«.t • r-cr 

°2SS 028E LCCATe 2* lJUit m-iA ' 

0272 028E LOCATE '*'''Lpu* , 'E*»*r ,m li " 

0292 02C2 6CT0 FIR*s7 V ° FF 
0296 02C2 PATEIT: 

22 22 110TH 80:SCRE2K 0:CLS 

0282 02C2 £IIT SUB 

0286 02C2 REH IPASE 



30 
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Peaqeot Jet Winter o7?o5-Si 
Pattern Entry/liadif uation 

I0:4o:l3 

:curce wine IW Personal CskuWP BASIC Cc;piler V2.00 

PATOIS: 'list iir-ctsry of patterns 

5=5uB I7EK0ISRASE: er«» blue boi around 01ft 
LOCATE :5,i:fRIHT SrACES(39): erase eenu line 
OPEH 'PfiTOIK.R:? - FOR INPUT AS II: 'open directory 

Hie 

IMPUT II, PATRUHX: 'read nutber of patterns in dir 

ectory 

USE tl ( i)-(3l8 1 lE9) t -t) 1 BF: erase grapmcs tablet 
j 3 o: 'set counter 

CISLQQ?: 

I * I ♦ i: 'set lor next value 

IF I > PAW.: THEN 6Q7Q OIREIIT: 'test for done 

IF INTUI-U/UI <> U-IW44 THEN GOTO SHQVNEXT 
IF INTUI-U/44) < I THEN SOTO SMWNEXT 

LOCATE :S,1:PRIMT *Hore to Display. Continue ? <Y or Ni 

SQSUB CORLGQP: »ait for Y or N response 
IF A$ » 'N* THEN SOTO DIREXIT: 'if N then don't contin 

ue 

LINE il fl ll-«3l3,IB9i 9 0 v BF: 'erase graphics tablet 
SHOHNEIT: 

DRCK » KI - W «00 III ♦ 2: 'calculate row for disp 

lay 

CC3LX * 4: ' 5| t colutn to 4 

IP (CI - I) MO 44) > ZI THEN DCOU * 23: 'reset coiuin 
if necessary 

LINE INPUT II, At: 'read next naie free directory 
LOCATE "0R0«,0CCL::PRIHT Al; 'PRINT HARE 
60TO 01 SLOOP 

OIREIIT; 

CLCSE II: 'temnate access to PATOIR.RJP 
SOTO FIRST 

REN fPASE 



Offset 


Data 


0226 




0253 


02:: 


02C1 


02C2 


G22E 


02c: 


02EF 


o:c2 


0301 


02C4 


0326 


02C4 


0330 


02C4 


0330 


02C4 


0335 


02C4 


0344 


02C4 


035B 


02C4 


0324 


C2C4 


03A? 


02C4 


03A9 


02C4 


03C3 


02C4 


03C9 


02C4 


03CC 


02C4 


030C 


02C4 


0401 


02C4 


0401 


02C4 . 


0406 


02C4 


0422 


02C& 


0429 


02C3 


044C 


02C8 


044C 


02C8 


0459 


02CB 


0475 


02C8 


0479 


02C8 


0479 


02C8 


047E 


. 02C3 


0485 


02C3 


0489 


02C8 


0489 


02C8 
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r-cicent Jet ?r inter c — c 

Pattern tf.:rw» 3 tf:fi Ci:ica 07-05-56 

„.. 10: *6: 13 

Jrrsn -.rce line l*n Per;cnai C:i:uter 5A-i: Coipiler V2.0C 

0*3? C:C2 v^'L-IAS: 

042E 01:3 ■ SOKB I7B1SCXESASE: 'erase ohe :ci irouno OIK 

0494 02C3 QPE.H "PATDIR.SJP* PGR INPUT A3 II 

0<;5 01:3 SI fPATKUni: 'read nui&er oi 9it terns in air 

0437 ° ::3 scrjs S5TSAK: 'proapt for and input pattern n 

ill 

c:C3 LIKE (l 1 l)-(3i8 ! l39J t 0 ) BF: '.rase graphics taMet 

04 £2 02C3 

0«K 02C3 GOSUB SEARCH 

04EB G2C3 

0I£ 3 02C3 IF U < (PATNUNX ♦ 1) THEN SOTO FOUND 

04FC 02CA LKATE 10 f la- CLEM {NMiE«) /2) :PRIRT NAREI;' not Found': 

0531 02K LOCATE 12,14:PRIHT 'Strike Any Key' 

0I< 8 02S 6CSU6 ANYKEY: a«it for a ktyrttt 

Oil: 02E 60T0 FIRST 

OSSS 02CE 

0«!5 C2K fOJHO: 

C5!fl o:c * FIL£« « R[6HT$(STRl(i:i,LEX(STR$(i:i)-l) ♦ 'PAT.RJP' 

057E 0222 OPEN FILM FOR INPUT AS U: Slt flltttrn uU H1| 

<or read 

05SF 0232 INPUT ll.ELNUK: >, 4 d flu ,oer of eltients in pit 

tern 

°5*l 02112 INPUT II, 5510: reid qr.d „ Z | 

OIBJ 0252 INPUT II, REPEAT!: re»d rtofit count 

25 25 »«" M.XOFf: >Md , 4m o<mt for r„eU 

0252 INPUT I1J0FF: > MI y lm oHs|t fof t 

Olt? 0252 

o::2 FOR IS * 0 TO ELVjr. - i 

CIF7 0204 FOR JX « 0 TG 5 

0I?i> 0:54 INrUT i:.::^::;:;,::; : - rei3 fil, ^to screen 

trriy 

042! KM NEIT J! 

0631 0204 NEXT IS 

0i <3 «C4 CLOSE Hi 'dsne ..tn diU file 

044A 0206 

•»* CPEN "PATDEF. ?..'?• f:r OUTPUT A3 11 

065C 0256 PRINT ll,FILEt: drtiu 

It tile 

06* 02M niKT 'siva the directory naa 

i as oil 
067C 0204 HOSE ti 

0633 0706 

0633 0204 SOTO ftEDRAN 

0637' 02:4 

0657 02C& SEARCH; 

068C 0:54 II = I: 



'set entry pointer 



0693 02^6 

°«« LIKE IKPUT tl,A»: read neit pattern naie froa di 

r 

06AS 02D6 IF AS * KAAEf THEN SOTO SEARCH. END: 'coipare naae . 

itJi dir entry 
0653 c::6 12 z is ♦ J 

CIC6 IF IX < (PATKUKI ♦ U THEM SCTQ r^CF: 'checic f or dene 

C634 02D6 -SARCH.EMD: 



9 
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motnt 


Jet Fr;r 


ter 


Pattern 




::*icat:&n 


Qtrse: 




::urct Line 


06D9 




dEE It: 






ssaqe 


06E0 


c::& 


RETURN 


06E4 






06£4 




;e* $p;se 



rwct 0 

C7-OS-86 
10:46:13 

IbH Ftrsciui Coiauttr Ccwuer V2.C3 
*no: found so close Hie and disslay i* 
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Seaeent Jet Printer .... 
Pattern Er.trv/ncaiMCKJM J 

i(i*at »... - 10:44:13 
" ssaretunt :SS Periowi Ceeouter SASSC Ccioiler ¥2.00 

C::« ?;: 3 ;;vE: 

.°:. 3 J KSBB ITKSOSESaSEs era,, »„, b0l lrsun9 „„ 

04cF 0 «4 IF £Lral , o THEN SOTO FIRST: ■„ elM(nts ln pittlrn 

06Ft C?EN •pflTDIR.?.;?' FCR !>i?UT AS II 

070F c "* INPUT It.PATXUK 

0721 IF ? «!«B < 30 THEN SOTO SAVE. FAT: 'directory full 

*t 80 patterns 
0730 0284 CLOSE II 

0737 0284 LOCATE 25,l:PfllNT SPACEK3?) ; : erast botts. 1 

ine 

LOCATE 25,l:«IHT 'Directory is Ml (80 patterns •*,)• 



0754 0284 



074£ °25A 6QSUB AKY«Y:S0T0 FIRST 

0778 0284 SAVE. PAT: 

OW 0°-- D A 4 MWSraBWi pr=.pt #.r and „t pattern na., 

0783 ECSUB SEARCH 

am 2!t 1F 11 ' ?A7 " ii " 1 TH£M SCT0 "^•HEU.PATTESK 

073F 0.36 ^ l0,13-ILEHi>i;i!tll/2):PRIHT NAflES;' already enst 

07?4 °25* LOCATE 12.1!:MUIT 'Seplact it" 

08OE 0286 PATNUK • II 

081S 02D4 ai . •• 

08!F 02B6 HH1LE Al « •• 

082E 02C6 At « iMfrt 

0833 0234 v£N0 

0844 0284 SOTOFISST omo 

0848 0234 

0843 C2S4 ACO..SEK.PSTTESK: 

il:."r."-:;f' : ' 4^1,t, oli »«kua director* 

^ ime •pa.aw.a:?. -nr.*.*!-. SJVt il4 J rec 

OPEX •PATDIS.OLO' FCS IXPUT AS II 
OPEN •PATSIS.SJf FC5 CJTrUT AS 12: set „ D 1( , 

S;?::^; , ' ■ i-iTi 

pa.nuix * r^.fcun: ♦ |. increase by 1 
MITE I2.PATWW: $m , fl „. , 

FOR I«I TO PATHm: - I «r« k0 ry 

P^T I I' U I/ 1 ' ;,S Mtry "» 81(1 «' 

NEXT I '■ r,t ' mry ,n "«■ ««'«tor T - 

PRIMT K.XAHEt: - rit , ntm ... . 

ry " ri " "•■ "try to neit directo 

CLCSE HsCLCSE 12: "don, , ltn „ ir|et 

SAVE.PATTERN: 10 y 

FIL£I 8 ftI5HT,iSTS,t f i '»U">,L£M(STRl.PAT«U B in.l) ♦ •? 

AT RJP 

, mf 0PEH FIL£I FCS CU ™ » «' create „. pmirn dit 

MITE IUSL.W.Z: 'start nu.b.r df elects 

WHITE I1.SRI3: 'store grid duension 

••tare reoeat count 
WUTE li.W??: 'stare x axis offset fcr r^ut 



0840 


0284 


0374 


0284 


087E 


0286 


088F 


0284 


08A1 


0286 


0383 


0206 


088C 


0206 


08C8 


0206 


0SE4 


020A 


08F3 


020A 


0903 


02BA 


OflE 


02DA 


092E 


028A 


093C 


020A 


0941 


02SA 


0943 


028A 


0977 


02CA 


0988 


02BA 


0998 


028A 


09A9 


o::a 
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10 



T5 



20 



25 



30 



35 



40 



45 



50 



neaqen: Jet Printer PASS 3 

Pittira Er.trw'ciif iciticn " 07-05-sa 

10:46:13 

Offset lata zz'irzt Lire Person*! Coaouter BASIC Ccaoiler V2.00 

05s? c::5 i-.iTS HJCFF: 'store y axis offset fcr reoeat 

o?c* o::a for ii * ■> to elsurz - t 

0907 025L FCR J2 3 0 TO 5 

0900 o;:C WHTE It.SOIDATItlX,::): «ritt screen a 

rr»Y to file 
0A00 C-2K KIT JX 

CAIC oik neit IX 

0A22 o:2C CLOSE 11: 'done *i th Hate file 

0AI9 022C CrtR •MT51F.R3P - FCR OUTPUT AS II 

0A33 02SC PR1XT ll,FILE*; 'save filenaie in defau 

It file 

0A4B 02SC PRIHT It v .ttHESt 'save the directory nae 

e as oil 
0A5B O20C aOSE II 

QA62 020C SOTO FIRST 

0A&& 025C PEA JPASc 



25 
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?*ttrr. £.i:rv/.io- X f icitJCn ?A£E 9 

07-CS-is 

ur-se; r :ur:e L 10:46:13 

5 ^ Coicutir 3-3IC :«oil.r V2.00 

0::: F;::?;a: 
'» «»t o::r sEim.- 

OKI OK 'sw., 

«, CMra, ' i3 '»^'"-^.^t,« IS c l£ , Rt: » slii 

o*a c::c sacxup; 

oa:a c:x 

o»CA o::c alike: 

OMF 025C , , 

0AFO 2£ ; ' EWOW 



55 0AFO C2E2 



OAFA C2Ei 8ST3 aTSELEJSHT 

Ofirt OIEa 

0« 02S4 an: 

0BOJ 034 TSSPI « 2 

30 J' 0 ' °» 60T0 RECTHSS 

OBOE 92li 

OK «£* SECT: 



35 oaiF 



0B1J 

obia o:a rictigs, 



IEP1 * 3 



0E27 -c 4 STASTWS* -- 'STARTS CCASES' 

0B37 orid i*:?.n.E; 

oSJ 0S 4 EX-ISSi » 'POINT £v CIRCLE * 

0857 02E4 DiTERElEKSHT: 

45 J? J M « W»l ITES30IERASE 

0842 02E4 FIASCO 

21 LOUTI 23,I:PRIMT SPACEK39I; 

0B84 0 £B LOCATE 21, !:F5I<T STARTilSSlj 

OBAO 62E8 63SIS CisPCttSOR 

so 0BA4 02-3 FINEST ART: 

• 0BA8 C2I3 6G3U8 "CUSEACT 

0 °S "2 11 ;i z :ii5,,27) T1 ° 5310 *»T 

08 '" «B BaSL'8 CUSS3RR8VE 

55 ■ 0JSS 5 ^3 SOTO FIKOSTttT 

52c8 Ai»T: 

08ED C:r3 G0SU8 KACEOSS5R 

0er3 '«» 60T0 N£I TEL 



0SF7 



35 
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Jet rr 


ir.ter 10 


Pattern 


Entry; 


■ccx*i:man 07-05-56 




10:46:13 


Offset 


Data 


l:irzt Li-e ISS rtncnil Caiauter BASIC C:t;iier V2.00 


0BF7 


02ES 


lETaTAnT: 


CBrC 




l::;ti ::,u?-!nt s*wss«: 


0C16 


02E3 


flaei * :eh?:::i: « ti'.ni - n 


0C2B 


oie: 


IF FLASI * 4 THEN PSST (XX*4,YI*4» 


0CI5 


oie: 


-INiiND: 


0C5A 


o:ec 


sSSUI ROUSEACT 


0C60 


02:2 


IF AS * MR! 1271 TrEH SOTC CAHCELEL 


OC77 


G2EC 


IF Al a CHRf(U) TKLH SOTO SAVEEL 


OCSt 


021: 


6CSU9 CURSCRnOVE 


GC94 


02EC 


SOTO FINCENO 


OC97 


02e: 


:;xceiel: 


oc?c 


o:i: 


50SUB PLACECUR3CR 


0CA2 


02E: 


C.N FLA6I 60SU3 Efcl, ER2, ES3 f ER4 


OCB3 


o:e: 


FLA6X * 0 


OCSA 


02EC 


SOTO NEXTEL 


ocse 


oie: 


SAVEZL: 


occ: 


02EC 


SOSUB PLACECURSQR 


occ? 


o2e: 


IF FLASI - 4 THEN CIRCLE (UIM.Y1I+4J ,S5S C IXS-XII) *2* « 






y:-yi:) a 2i, mi i 


0032 


02 Ew 


ouSUB CORRECT 


0038 


oie: 


IF Al-'r THEN 5070 -UK* 


0043 


02EC 


STORESL: 


0050 


02EC 


scmjatkelhuk.o) - FlAs: 


0D6A 


02E: 


SCMATUEINUIIX.U = lit 


0085 


02EC 


SCH3ATXlELHimX,2) - Ml 


OOAO 


02E: 


s:s:at;(£ihuh:.:j = it 


003B 


02EC 


crK:AU(ELKg«.4) * t: 


0006 


oie: 


SCWATXtELMK.S) « 3 


OOEF 


G2EC 


ELNUHX ■ ELKwBX ♦ 1 


O0F3 


oie: 


FLASI * 0 


05FF 


oie: 


SOTO KEXTEL 


0E03 


o2e: 


r.ES tPASE 
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*<«?ent Jet Prints: 

bittern Entry/*::: ficuiw ?: " 



3"set Cit 



:3.l rVscnji Cjssuter 5A3I: f.; M ii»r' 



o:e: ;£:s;i; 

S 5:5:5 :"SSS3XESASE 

OEOE 0^ L:«;:.l,- ( 3;3,iB9,,0,3f 

OW OHC ' r ^ - ° ™ EN 5073 ™* 

J«j o:e: w i.o to iuw:-, 

S! Off! «„, «" iWUTXCI.Ol 6SSUI tOl. UK. «53. RD « 

OE?C 02FO SOTC KEITEl 

OEAO 02FO 

OEAO OIFO 'IMHXI Sui-'-UtiB»« nil. ,4 •. 

0 £ ; 0 02F5 -«tines called fcy mt ,„*„•, »« Mm # 

OEM 02FO SusXENU: 
0EA5 02FO 

OEOl 02FO mu - k 

2! HI* A£«D BENUKI) 

02FC 2 "»«».'»-2:MWT «*,,„„ 

OF44 02FO 

0F44 02FO lEABflAXITQ 

0"0 02F4 IT£h , 0 

0F57 02F4 

0F37 02F4 ,«iEWITE»: 

0F5C 63SU1 «HTE«OI 

0F42 C2F4 

0Fo2 02F4 liElTITEHi 

0F47 02F4 S3S . J8 ;:r. : - £;s:H 

0F54 02F4 re , , !.l i,sM fcM " rrect »»i»t 

ofL SI IF aK!s::,: ».M- • " them s:td LEFTAR 

°" 6 0l " :F «CiSi:ilfiJ.2.nj * 77 THEN fi'TB fi*-- 
0F02 C"F4 — , ...1 bwiB R, 0 itiSa 

OFO? 02F4 

OFD? 02F4 LEfT«: 

OF0E 02F4 IMTEH , o THEM 60T0 MEITITEH 

OFEE 02F4 60SU8 ITE«-0IERASE 

02F4 ITER » I TEA • i 

too! 02« soto mi'.m 

1007 02F4 

1007 02f4 RISHTAR: 

10OC 02F4 if ITES • MUTES THE.N SOTO KITI7BI 

,0lF SS3UB 1T£»BCIERAS£ 

1025 02F4 1TE- * ITER ♦ I 

1034 02F4 SOTO SEMITES 

1038 02F4 

1038 02F4 «VU1: 

1030 02F4 RESTORE IW1 

l0M 02F4 nim 

1048 02F4 

1048 02F4 rSHU2- 

1040 mm ' seethe .w 



33 
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i?«qent Printer Pftot 12 

Pattern £n:r>i'«c:::::ation 07-03-96 

10:46: 13 

Offset lm ;;ur:s line Personal Ciaouter BASIC Cscailer V2.00 



:0!4 








C2F i 




1033 


02fJ 




1030 


02F4 


Al » INf'EYJ: IF Al <>"•• THEN RETURN 


107 A 


02F4 


SOTO ITEJIS-ARCH 


1070 


02F4 


RETWB 


1031 


02F4 




1032 


02F4 


KNITEKSOX: 


lC3o 


02F4 


IS » (ITESM8) ♦ 7 


109C 


02F3 


IE = CTE.M46) ♦ 8 ♦ LEK(HENUSUTEH))t8 


1009 


C2FC 


LINE (IS,l?D-irE,199l t l 1 B 


1101 


ore 


RETURN 


1105 


02FC 




1105 


02FC 


ITirSCXERASt: 


no* 


OJFC 


LIKE US, 191>-UE, 1991,0,8 


1131 


02FC 


RETURN 


1133 


02FC 




1133 


02FC 


placecurscr: 


113A 


02FC 


put i::u,rMi f ;uRs:a: 


1157 


02FC 


RETURN 


1133 


02FC 




USB 


02FC 


HQUSEACT: 


1160 


02FC 


SQSUB ANYXEY 


1166 


02FC 


DXZ * 0 : DYI * 0 


1174 


0300 


IF Al * CHRIIO) ♦ C:-:?S(72J THEN OYI * -I: RETURN 


1190 


o:w 


IF Al * CXRS(O) ♦ Cr;j(50) THEN OYI * I: RETURN 


11C6 


0300 


IF Af * CH3II0) ♦ Chi it 771 THEN Oi: * I: RETURN 


UEF 


0300 


IF A$ = CKRS(O) ♦ C:-*l<75) THEN Oil = -1: RETURN 


1218 


0300 


IF Al « '8' THEM Cr: * -20:RETURN 


1232 


o:oo 


IF At * *2' THEN OY! « 20: RETURN 


124C 


0300 


IF Al s THEN OH * -20:RETURN 


1266 


0300 


IF Al * V THEN OH = 20: RETURN 


1230 


0300 


IF Al » 0:311271 THEN RETURN 


1257 


0300 


IF At s CKRSU31 THEN RETURN 


12AE 


0300 


GOTO HCUSEACT 


1232 


0300 




1232 


0300 




12B7 


0300 


63SUB PLACECURSOR 


I2tt 


0300 


ON FLA81 60SU8 ER1, ER2, ER3, ER4 


12CI 


0300 


XI » XI ♦ OH ; Yl « Yl ♦ DYI 


12E6 


0100 


IF XX < 0 THEN II * 0 


12F9 


0300 


IF XI > 311 THEN II * 311 


1308 


0300 


IF Yl < 0 THEN Yl » 0 


1310 


0300 


IF Yl > 132 THEN Yl • 182 


1330 


0300 


ON FLAol SOSUB ORl, 0R2 t 0R3, 0R4 


1341 


0300 


EGSU8 CISrCURSH 


1347 


0300 


RETURN 


1348 


0300 




1348 


0300 


CCRRECT: 


1350 


0300 


LOCATE ::,i:FRINT SPACEK39); 


1360 


0300 


LOCATE ::,::Fs:NT 'IS THIS CGnRECT? IY or N) 


1337 


0300 


CCRLOQPt 


133C 


03C0 


SCSI'S ARYKEY 


1392 


0300 


IF Al * V OR Al a -y THEN Al = 'Y':E3T0 CCREIIT 
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Offset liu 


t -*c 


* * « • 






r:; 

* «>r 3 




i jr 3 


A* 






i itn 

l * 1 V 




1421 




1421 


* » *w 




fl* 'ft 


Hit 


* » • A 

WWW 


t Hi 




1 lit 


A VMM 


use 




U34 


o:co 


1494 


03CC 


1484 


03C0 


1489 


C'vvO 


1522 


AT** 


1526 


**** 


1526 


o::c 


1513 





"ejcent .V. rristir 

'«:«rn E=:ry/jiaoWieKiM !: 5 =. 11 

0/-o3-a4 

:? i» « ••• a ;t * ;k-n as : s:tc c"-ii: 

'.CCATe Z3,l:FRiNT SPAKK39I; 
RETURN 

SCSU8 PLACCCWSOR 

LOCATE 25,:7:fRINT USIKS •♦I.IM'ji: i s S rn. 
rRINT V; 

PRINT USING **|.||f.y : , SSID . 
RETURN 



SOIs 

RETURN 

IIC4 030O RETURN 

15C8 o::o 

15C8 03C0 S03: 

WET"'' ««".»--'««™..»-.« 

1663 03C0 

1663 C2C0 ::4: 

1670 o::o RADIUS! = c;5'((c-v-;;'" v - * »■ ( 

IS £1 Si ii: """"' : -'-^'-.:M,, R „, US! „„ l 

1761 03C2 

1'61 C3C2 ,31: 

17*4 0:02 LIKE «IlM,llMi-ilM,rxMl 

17AF 0302 RETURN 

17B3 0302 

17B3 0302 SR2: 

1788 0302 LINE <ItW,Ti:»41-<i:»«,r:»41 B 

1801 0302 RETURN .•♦',,8 

1803 0302 

1803 0302 :-.Z: 

l8w 0»2 LINE <Xt:»4,Yi:»4)-(z: t 4,Y:M) t r 

1354 0302 ScTUSN ' " EF 

1538 0302 

1358 0302 :S4: 

1850 0302 RETURN 

1861 -0302 

5341 53C2 rsj. 

1244 o:; 2 line (nx»4 I Tt:ni-(i:*;,Y: f « ) 0 

IS*? 0302 rtcT'onfi ' 

1333 03S2 
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, ■ - B _ . 07-v5-ao 

?a;tern s,r.:rY/f.:::r:;oUon io««d-l3 

Onset :*t* !:ur:e une IS. 1 ! Personal Cciouter BASIS Csasiiir vl.00 

*cSj "3*2 » 2i 

isss ::m like invMr.^-tii^uui^B 

1901 0302 RETURN 

1905 . 0302 

19C5 0302 V.Z: 

lQoa 03C2 LIKE (Xi;M l Yi:*4»-(X:*«,YXM) t 0 f BF 

195* 0302 RETURN 

1958 0302 

1952 0302 EM: 

1950 0302 RETURN 

1961 0302 

irsi 0302 iNYKEY: • 

196b 0302 ft* « " 

1970 03C2 WILE AS ■ " 

i?7r 0302 ft* ■ IWBf« 

1989 0302 «M 
193C 0302 RETURN 

1990 0302 

1990 C3C2 SE7KARE: 'pro»pt ♦or ana qtt hltnwi 

l9 95 0302 LOCATE 25,1:FR1NT SFACES139); 

•932 0302 LOCATE I5,3E:PRINT •<;';: 'boundry chevron 

l9CC 0302 LOCATE :5,1:PRINT "Ester Pattern Nat B ; 

l9 Ei 0302 LINE INPUT; -\NAHE$ 

19F4 0302 RETURN 

19F8 0302 

19F3 0302 ' -ata fields used by tms aosult 

19F3 03C2 

19F3 C302 "M: 

l9F0 0302 0ATA •CIR- f -LW/SA-.t\':RAM' t , RyT > ,-Enr I " f ! 

19FF 0302 

19FF 0302 M2: 

lA04 0 302 DATA 'LINE' ,'RECT' | -3RE:;-/CiRCL\^:R^/r.AIN- » ,5 

LA06 0302 

IA06 0302 I^STRUC; 

lA0 B 0302 DATA 8.U/USE ARRQMS* 

IA00 0302 DATA 10,9/TQ SELECT F^Cft THE HENU* 

lMF 0302 OATA M f l2/USE THE ENTER KEY* 

mi 0302 DATA 16,10, 'TO ACTIVATE SELECTION" 

IA13 0302 

IA13 0302 END SUB 

IA1A 0302 

21AF 0302 

5042& Byte* Available 
43373 Bytes Free 

0 Warning Error is) 
0 Severe Error (s) 



41 
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^cizzzi Jit Printer 

ffarr--*3i»n rCI-ICCCO custoi driver Pfi « 1 

06-30-56 

Gfrset Oat j : curce Line ^ 08:13:14 

iCfl Ferscn4i tauter cA:i: :;;:ii e r v :.:o 

ccc* se- s7:TL£ ; ^ e nt . • 

O.custoa dnver' W ilL:: rurr-Sr:** ?r : . 2::o 

0030 0006 *J1QCJL£ - -prr* v 

C030 0006 • CI 3MVer ' 0r th « ? CI-2C000 I/O and P L1S Clr:5 

0030 00C6 'AUTHOR . M e - . 

0030 0004 H ' S - filrChlld0< C e .,utin, arcMtectsInc . 

0030 OC06 113 ^'ield *iy 

0030 0006 BloounodJli. II 60108 

0030 CC06 • • 312/980-6777 

0030 0006 'C3PYP.ISHT !C » m ; 3B0 TT LABORATORIES 

'ST™™'"*'*'"**" I/O inttiii:jt::n, „ 



0030 0006 
O'.-iO 0006 



oo:o ooo6 

0030 0006 



0030 0006 85 " Sf * m caunter Mdult to position 2 

0030 0006 65 HJ Cr " tIcn °< ln itul coat 

S SS S,S,E " ••«.■>- 

0030 0006 U .til not run unflir the INTENTS*!! . 



0030 0006 ' DESCRIPTION 
0030 0006 



0030 0006 
0030 0006 
0030 0006 



CCfSf 

austs 

nvide 
ivers 



The PC! .odul, „ 4 , ragp 0 , routin(J uti t9 4 

the BURR-Brcn PCl-20000 T h c 

tut «or„tar2000 sorter, to .auction ano . lH „ Bt , 
"Pl.c.t on, 0 fM tt „ct,on« forth, counts. Cu ,toi er 

O°o" 0 0006 • " ,Ite "» ta ^'««lIoMh,d„ irM ^, ::is „ # 

0030 0006 

0030 0006 • AddfM1 R 

o°o°:o° % •' tHtoc" ll'tl" '' D * '' ,!dul * prt " flt 

0 0 006 • IHC0C8I j„ lU | |/ Q or R 

00,0 0004 IHCOCCO Oic::,I I/O port 2 «/» 

00M 22 ■ IHCOOCI Digital I/O port 3 (R/KI 

0030. 0004 "C00C3 Control for port, 2 and 3 

0«0 0006 • U 0 ° Counter 3 count r»gi*t»r (2) 

<">30 0006 • S ' '"•'"►'coaitp 3 control 

0030 0006 • :„r 0 . fl f Counts 0 count rej ist .r ( 0 ) 

0030 0006 • u£ ! f T eaw «l 

0030 0006 • I" J ""t ri„,t.r «, 

00*0 cosA • 8 Cflunt8r 0 ■ 2 COfi *' , al 

IHC020C _ Counter 5 „. «:rol ,1 ena ales , 0 <: S1 
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Ka&ssnt Iti Printer 

:urr-:r:w r31-"*-v-/ custza ariver 

Offset Data Scurte Lir.e 



0033 


0004 


bit fur.ct;:n 


0030 


CC36 


0 Site ceaerator gate 


0030 


OCOe 


1 Rate generator qiti 


003C 


oco* 


2 Counter 0 gate 


0030 


0C36 


3 Counter l gate 


003C 


0004 


4 Counter 2 gate 


C030 


CC06 


S Ccunttr 3 gate 


0030 


CCC6 


6 Mot used 


0030 


CO06 


7 Mot used 


0030 


€006 




0030 


0006 


* 


0030 


OG06 


CVU DICTICKAnY 


0030 


CC06 


* 


* • • • 


CC06 


COUNT - Divisor tc ZJhz rite to give desired frequenc 






v or tiae 


0030 


0006 


CC'JMTHX - High crder 16 bits of a 32 bit diviso 


0030 


C-006 


r 

CuUNTi; - Lo» order !6 tits ot a 32 bit divisor 


CC30 


C006 


LSBX - Loor B t:t» of a 16 tit divisor 


0030 


C C w6 


SSSI - Upper 6 bits 3< a 16 bit divisor 


CC30 


0006 




0030 


0006 


' Rain line ccce 


0030 


0C06 


The tain line coae is never executed. It's sole purpose 






it to 


0030 


0006 


* declare shared the vana:Us that wiil.be used in the subrout 






ines 


0030 


OC06 


* so that tr.ev nil all be ceMned and hold their values. 


0030 


C006 




0030 


C006 


RAIN: 


0030 


CC06 


CIH SHARED C0UMT ^CCUMTK v C0UKTLI , LS3I, HSBX 


0030 


0006 




0030 


OC06 


M1N10C?:. 


0030 


0006 


£"jT0 HAINIQ0F 


QQ4C 


C312 




CC4C 


0012 


R£R JrAEt 



pass : 

Q6-3C-=3 
08:38:16 

I3« Personal Cosouter BASIC Coioiler V2.C0 
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?fiam .V. : '!.v.«r p ... 
ourr-:r:.n rCI :•«;:» : n.?r • 0«-3O-3i 

06:33:16 

trrst: .r.j ;: .. r -j u .j ; ers: . 4i ccwutir 8;SIC C;ssiUr V2.00 

cc<c r--s:jTr?,£ - ?c:.jkit 

^ << *c » * 

004C c::2 Th » ?Cl.XT iusrs-atiAi initalizes the PCI haro.are. 

004C 0012 

ooc ya2 ui fci.ix:; static 

ocs: ?r.2 

0053 Wl2 KF 3£5 * UKMOj 'Point seotent to PCI-20000 board 

00wA 0CJ2 

CC5 - 0012 ?:r * WC»C f lKC5: 'ti sable all sott-are enacted counter 
s 

0063 SC12 

0063 COI2 * Configure rati generator to 2 

0063 CC12 

0C6: 0012 PCtE W0207.UB4: 'Set lo. rat. counter to eodf 2 

0060 0O12 POKE lKC207 t lH74: 'Set high rate counter to eooe 2 

C07T CC:2 ^ POKE lHO204,iH02: 'Load lo. rate counter .ith 16 bits o 

0031 0012 POKE Vrf0204,W00 

OOEA 00:2 POKE MO:C! f W02: 'lead hi 9 h rate counter .ith 16 bits 
oi 2 

0094 0012 POKE tHO2OS v iH00 

00 ™ WJ2 POKE W020C,IH03: 'Enaslt rate counters 

00A7 0012 

0CA7 0012 ' Configure dot rate counters default to 5 Khxi 

0CA7 0012 

CCA7 0012 FCn W020i ( W34: "Set 1:. dot c:un:er (0) to lode 2 

0031 W;: «K V-02C3.W74: "Set dot center (i) to toce 2 

008* 0012 ^ ^ PCtt ^20S,W04s lo. rate counter <ith 16 bits 0 

cccs 0012 ?cri ;ho:c-3,ihoo 

OOCE 0C12 PC« W0209 f Ui64: u i8 aiC h rate center .ith 16 bits 

of 100 

0C5? 0012 POKE IKOIOf.WCO 

0CE1 0012 

0CE1 0012 ' Caafif^re oot puis* .itn one snot (default to 13 usee) 

0OE1 0012 

00E1 0O12 POKE MttOS.Ma: 'Set oot pulse .ith oneshot (2) to 10 

dt 1 

°K1 Wtt ;«C^A,W1A: 'load onesnot .ith 16 bits of 26 

OOFS 0017 POKE trw2CA,lHOO 

OOFE 0012 

OOFI 0012 ' Ccnlic-irt shafted strobe pulse one shot (default to 5 usee) 

OOFE. 0012 

OOFE 0012 POKE lK«C7 f WB2: 'Set shifted strobe onshot (3) to eod 

e 1 

WE 0012 ftr.E iHj206/cHvl: 'Load oneshot .ith 16 bits of i 

0112 0012 POKE ln02C6,lHOO 

01 IB 0012 

OUB 0012 * Configure port 0 to output and port 1 ts input 

ci ib ;:i2 

0118 0CI2 POKE WC083,:hs;: * Set up I/O chip 

01 23 0012 F3KE ;KO082,iH34: ' Set us direction and enaole buffer 

012F 0012 ?CKE IHOOao.MOO: ' DissaDle onnt nead 
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5 



TO 



Eurr-fr:w ?c:-:;:-C? c:s::a criver 06-30-36 
' 5 06:33: Lb 

scur:e tine !HH Personal Cowuter SASIC C;s:;ler V2.00 



20 



25 



30 



IT* St i 


* - fc s 


V 1 vfl 


* » * * 
W 1* 




* * * «5 
WW 1 4 


C13F 


0012 


013F 


oc;2 


U 1 Jr 


Wtt 




vvi* 


U 1 or 


Vv* I 






0l3r 


«12 


oiu 


0012 


0146 


c:;2 


0150 


0012 


0150 


0012 


0157 


0012 


0157 


0012 


0157 


0C12 


0157 


0012 


0157 


0012 


0157 


0C12 


0157 


0012 


0157 


0012 


015E 


0012 


01SE 


0012 


OUS 


0012 


oua 


0012 


OUr 


0012 


OUF- 


0012 



DO 5U0 

TJ-^TIKE - OQT.CN 



=TICH: 

The OOT.CN subroutine enables the dot frecuencv counter 



ST. iN STATIC 

P2KE U4O20C,UiCF: 'Enaole dot counters and rati generat 



END SUB 
m *P«E1F:12 

35 0157 0C12 TJsTTuTINE - OOT.CFF 



'CEraiPTISl: 

The OOT.CFF subro*- ? disables the dot centers 



40 0157 0012 SUB DOT. OFF STATIC 



POKE ;ho:OC,1H03: "thsaole dot counters and enable rate 
generator 

EM SUB 

SIR f?ME;F:49 



50 



55 



0 258 237 



Seacen: Printer 

Burr-Sfe-i rCi-ZC-COO custct cr;ver ' J* 5 * } 

uffsB* Data c- 06: vS:i6 

--.f '.:nt :-n Ptmmi ;:*:uter SA32C Csaeilir vZ.CO 

JUr 0012 ■S-.-SSWriJIE - :ST.:CT.SSTS 
0J6f 0012 

10 01SF 0012 rrSC'IPTIOM: 

oJar «! 2 2 ,„ « T -MT.MTE su 6 r 5a t:n. loads cfi. dot r,te counter, 

«*F «J2 .ith tM desired dot frtflumcv. AMmm unqe is 10,000 to 1 

016F 0052 • The FRE! pjrueter 15 1 reil nuiaer in H: 
'5 014F 0012 

016F 0012 SUB SET.0aT.XA7E.rSES) STATIC 

0176 0012 

0174 0012 ' Uiit freqeney to in rtnot 

0176 0012 

20 017i 0 °12 IF FRE8 < 1 THEN FSES * 1 

.JJJJ JJjj IF FRE3 > 10000 THEN PRE! * 10000 

01AJ 0012 ' Convert to c:u„t and cft«k for 14 tit t3unt 9r 32 bit C3m 

25 01A8 0012 COUNT * 2E4 / FRE3 

o:sa 0012 if caar < ra- them soto div;:e;6 else scto onuses 

01C? 0012 ' Process count of 32 bits 

OICF 0012 

30 OICF 0012 DIVICE32: 

O10O 0012 CO'UKTLI » INT((CC:«;/3274S!1 ♦ 1): staot lo.er eM i 

ss z rs.:s sw ' K — ---- 

020F 0012 

X 020F 0012 ' Frccess csunt ct 16 Sits 

020F 0012 

020F 0012 DIVi:SU: 

02M ooi2 c:wtl: * 2 

0218 W12 ccjmth: = iNTtCT/rj 

40 0232 0012 SOTO S£T.::u«T 

0234 0012 

0234 0012 ' Send tM S ,ru« cour.ts cut to the centers 

0*36 0012 



45 



50 



S3 



023* 0012 SET.CCJiT; 

0237 0012 LSit « CSKTU *0D 254s * Send cut lo- 14 bits 

0.4a 0012 mz . i^ccuntu / 2 s*» 

0012 POrE W0203.LS3X 

°273 0012 POKE IK0208,?!S8Z 

0293 0O12 

• 028J 0012 LSBI * COUMTKt RO g 2S4: "Send out hioh 14 bit, 

02AC 0012 POKE 4HC207.L33I 

023C 0012 POKE lHC20? t «S3X 

02CC 0012 

02CC 0012 END SUB 

0203 0012 

0223 .0012 R£* !PftSEiF:27 



46 
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5 





i*\ Frintsf PftSt 6 


3urr"5r 




CUatyS OrlYBr 4V bb 






08iI3i 16 


Ut t5f l 


La t ■ 


i^ m r *, c Line icn rcrsunci Bnjty wuvptici 




WW J 4 






WW 1 4 






6017 

Wit 








7h* SET 3GT HIuTH subroutine loids the dot nidth one sh 






at 




ton 

vW 4 4 


' aith thi dtsirtd dot oulst width. Allowed nnat is .5 to 16.0 






fid llt*f 




5017 


* Tht ridiath ciriiettr is i rtil nuibir in usic. 




W 1 4 




U4UJ> 


WW 14 


c i:S C £T.:CT.H1DTK(DMI0TH) STATIC 


vlUn 


0017 






0012 


' '.iiit »idtb to io range 


020A 


0012 




02DA 


0012 


IF SWDTH < .5 THEN DH1DTH * .5 


02F3 


0012 


IF OHIDTH > 16000 THEN 0 WIDTH - 16000 


030C 


0012 




030C 


0012 


' tccvert to count 


030C 


0012 




030C 


0012 


C2UNT = D^IOTH / .5 


031A 


0012 




031A 


3012 


' Send tht derived count out to the counter 


031A 


0012 




031A 


0012 


LSBI > I HT (COUNT HCO 216): ' Stnd out 16 bits 


0331 


0012 


HSBI » INT (COUNT / 256) 


0348 


0012 


POKE IH020A.ISBI 


03S8 


0012 


F0KE %H020A,nS3I 


0368 


0012 




0368 


0012 


END SUB 


036F 


0012 




036F 


0012 


EEJI r r ABtIr:27 



55 
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' Burr-S-.n fCI-Jc-CM cus::i ariver ? AS ? 7 

«<«« lsvu L ,. f : ., ?(rsanil Ci8sut>r 

534? ::: 2 ■s--58QU7I.se -5sT.57S08E.8a.AY 

036f :::2 

034F C-:i2 'lESCaiPTIONi 

014? CCI2 ' Th, SE7.STKSE.CEIAY subroutin, t h. strati. tf.Uy 

cne shot 

034F 0012 • The tftliy parw.ttr i, * r .«l nu.btr in usk. 

Qior owl* 

034F CC12 SU3 SET. STXOBE. DELAY (DELAY) STATIC 

0374 C012 

0374 0:i2 • Uiit diliy to in ranoi 

0374 0012 

0374 CJ:2 IF BELAY < .5 THEN DELAY . .5 

03«F 0012 IF DELAY > t4000 THEN DELAY - 14000 

Q«AB 00*2 

03A8 0012 ' Convert to count 

03A8 C0I2 

03A3 00S2 COUNT » DELAY / .5 

0384 0012 

o°:b! o°oi! "* tf,riv,d " unt eut ta m mnttr 

I™ I'll ' INT ' C0UNT " M *'»» ' S "< «* 

03CD 05 I2 1SBI • INTICOUNT / 214) 

0IE4 POKE ;ho:o4,l«3: 

0JF4 00 52 P0« IH0204.RS3Z 

0404 0012 

0*04 0012 END Su3 

0403 C012 

040B cc:: ?5» !?:=£;,: u 

0403 0012 -SL-SSKlTiJlE - DISITAL.C-T 

0408 0012 

0408 0012 'SESKiPTia: 

— »" — ' 

0400 0012 port 0. 

040B 0022 

0408 0012 SaOISIKLSUKIYTEll STATIC 

0412 0012 

0412 0012 * Send the byte to tfte port 

0412 C012 

04 12 0012 POJd IKOC80,8YTR 

0423 0012 

0423 0012 END SUB 

042A 0012 

0S7F 0012 

5042& Bytes Available 
49723 Bytes Free 

0 ¥armn: Errar(s) 
0 Severe Error(s) 



4g 
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Rtaqttt ;«t Pnnttr 
Patttri Pr:«tift« 



10 



15 



20 



25 



30 



35 



40 



45 



50 



OMstl 


: Citi 


oo:: 


ovu 


oc:o 


c;;i 


oo;o 


0004 


0030 


cc:a 


oo;o 


0004 


0030 


c;:4 


0030 


0004 


0030 


&C04 


0030 


0004 


oo:o 


0OC4 


0030 


0004 


0030 


oc:i 


0030 


0004 


OOJO 


0004 


0030 


0004 


003C 


0CC4 


0030 


0004 


3030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


oc;4 


0030 


0C04 


0030 


0CO4 


0C30 


0004 


C030 


0004 


0030 


0004 


0030 


0004 


oo:o 


003* 


oc:o 


X04 


oo;o 


0C04 


0030 ■ 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0C04 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


CC04 



Scurci lir.t 



ISB Pincnal Caaouttr BASIC C 



Of- 1 

05:* 
itsiltr v 



•'•a ITITLaVStaer.t Jit ?nnttr' SSUB7ITLE: T«ttira Prmtinq- fLI^SIIE; IZ2 

xzss - 'p;:rsw 

•cnaisHT <:i in! xxn ihwatories 

KVISICX - 2.0 07-o:-3i Ut Xodifitd lor Ricrofab Printhtad 
* l.J 03-07-56 IAE Addtd not is and final toucfiis 
1.0 C2-03-W XA£ Crtatioa of initial codt 

*STSTl?! - This cat can only bt cotptWd by tht SASCCJI 

CTPIlOl, it it 11 not rua ondir thi INTERPRETER!! 

TW prmtinq aesult disoltvs a ttau in 3 coitions of ♦ ro« tacft. Tht lint 
cqIuoa ft** sata froa the dtftult rtagtnt profilt. Tht stcont coluan nai 
data frca tht dtfault patttrn filt< Tht third coWan has standard prmtinq 
data. Tht four irru ttys alio* difftrtnt ttno ittt* to bt Aiqnliqntto ind 
tht valuta can ot cnanqtd nth tht ♦ or - ktyt or by tnttfing tht nt» nutotr 
folloMd 3y Enttr. P -it; cauit tht patttrn to bt printtd, S nil wltct tht 
tattptd, and £ till tut to tht oaia preqras. Oa tht not toad, any smelt lint 
tnttrtd (tin .ill bt ttnt to tht prmttr. A null lint tuts tht nottpas. 



'DATA orencNAiv 

oirn 
ttoi 
ur,*: 

o:;t;i::,: 

RcPtsr: 

cn 

K3Z1SI 

:: n 

sn sn 
cn m 
n n 

TOW 

hxmi*i 

Kmc)?,!) 

u 

MOTIf 

tiiWt 
REAXAnll 
PAWWEI 
riLEf 

nxnmi,«> 

TOT 
R£JI tPASI 



Vhich •#«« ittt is hiqfitigattd (0-17) 
«h»rt aovt stnu hi^ftlioht it rtioonst to arroi kty 
iftu ttf nas bttn prtssto duruo aam scan 
Vji3»f :t tltatnts in currtnt patttrn 
: *rr if for *tarmq tltatnts in currtnt patttra 
C;aatir <or rtptat printing tht patttrn 
Cc-ntar (or tttppiao, tbrouon tht patttrn array during prmtmq 
Radios o* circlt during prmtinq 
SfMtti for start rot/colutn positioa 
Rtptat distancts lor rtatai prions*; of patttrns 
Starting I md T positions tor solid rtctanqlts 
Ending I and T positions for solid rtctanolts 
Cotiattrs gstd for rtadinq patttrn filts into tht array 
Rttisttr for tisc. iatt9trt 
Pointtr to ifeich lint is actitt ia tht aottoid 
Vray of strinos uirt to display otni ttm 
Sin^lt itystroif in pot dtstiaatsoa 
String tnttrtd in aottpad aao stnt to priattr 
Strinq tnt k to frot aaia scaa aad astipntd to nuaOK of stnnq htld 
^it tf dtrailt rtaqtnt 
Maat of dtfatlt patttra 

»aat t* rtiqtat data filt and thm patttrn data Hit 
Arrjy of valutt gstd in displaying ttn« ittt nutbtrs 
Rtqisttr for tht tttporary storaqt of rtai nuaotr* 
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4Q 



s h$k: ;<t ?r;ntir 
?»:tK« fnatis; 

Win Dit* Icufci un» 



ISA PimoiuI Ccuattr 



09- r 

01:4' 
BASIC C«3ii ir 
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3o:: 

0047 
0047 
0041 
0048 



0C54 
0004 
0004 
0442 
0442 



T5 



0C4C 0442 
0C4E 0442 



eon 

0040 



0444 
0444 
0444 



0C4A 0448 

0044 0448 

0079 0441 

::iZ 0448 

::u 0448 

CC84 0448 

::i2 0448 

OO0E 0448 

C0F4 0448 



:::a 

012F 

o::4 

0171 

:::4 

0*32 

o::2 
o;:f 
c:;f 

OtZ- 
• *** 

:::4 
0:44 



C448 
C448 
04U 
0448 
0448 
0448 
0443 
0448 
0448 

;ns 

0*48 
04U 
0448 
0448 
3468 
0448 
9448 
0448 

04a 



out o«a 



0277 
C21F 



W4I 
W4£ 



02AC 044£ 
02C0 Mtf 

on: 04U 
otn 04a 

0X3 044£ 
023 044C 
02C 044£ 
02CC C4tf 
044E 
3470 



S:3 PiTPRlNT STATIC 



oi« scwat;;:o.:j , jshuiii7. i; , ac>iu c 1 7 1 4 i 

6CSU8 INITIALIZE: rtad init. viluM iad tit leritn 

mile type: o 1 

TYPE! • 0 
AS » 

WHILE AS « 

At « [NKEYt 
VEH 



IF Al 
IF Al 
IF Al 
IF Al 
IF Al 

if ;i 

IF Al 
IF Al 
IF Al 

if ;i 



CR Al » V THEM TTPEI t u 
V THEM TYPE! » 2: 
TYPE! • It 
TYPE! « 4; 

CHRII721 TXEH type: • 3l 
CHRKSO) THEM TYPE! * 4: 
CHIII73J THEM TYPEI • 7: 
CHRK77J THEii TYPE! ■ 8: 
\0 At < CHRIC8) THEM TYPE! 
• V THE! TYPO « 10: 



« 9 9* OR Al 

• THEM 
■ ••• THEM 
« CHRKO) ♦ 
» CHS I til ♦ 

> CHUtO) ♦ 

* ch*i;o» * 

> CHSIIO) J 
» Of* Al 



'eiit sub 
prut p*tUr» 
'iacrtMAt viruftlt 
'diCfMtnt viruftlt 
'uo vru key 
'dew trroi itr 
'lift *rre» ktr. 
'nqlt irru kty 
• li' nutter 0-4 
'tattf KMtCtlSJ* 



OM TYPE: 5C3JS TI, ::, T3, T4 f TS, T4, T7, T8, 7t, TI0 
MEMO 

TYP£: « 0 

exit sua 

♦ mi.mmm SU8?3UTSI£5 FCR THIS "C2ULE hmimmm 
TlO: 'tcrjtcn oto 

s:xeem o,o,:,; : cx:r 7,0 

LOCATE fc;7ELlK£:,l 

wteicop: 

lime ik?ut motes 

IF ROUS ■ THD SWEIM O.OfO^sfiETUn 
LPRIHT WTEl 

IF 80TELIME: < 24 THEM NOTELIMEI • MOTELIHE! ♦ I 
SOTO NOTCLCV 



Th 
TJ: 



5: 



3::2 0470 

0Z88 0470 

033 0470 T4t 



nit to print lean, no ictioa 

proem •♦• kff 

IF KWttEW.Ol V« KEMUlHEMUT.ll THEM «r*U(H£KUl t 0) « -EMUtWJt, !J:«ETUfiM: 
miRES-u: f 3) • *!NU<«!UJU) ♦ .-EMUmtMW,:): - M irtcrtiKt 



cm in viiut 



COLOR 0,7:S:5UB DlS?TCKl':A£TURM; 
'proem kty 



'SBOI RffV TiUt 



5G 
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;<ioiot Jit F'ir.tir 
?*ttiffl Frist: a* 



OfMft DiU 



FA6E 

C9-17 

06:4? 

Per ion i l Cciautir BASIC Caaouir V2 



TO 



20 



3*S* 


04"? 




!f S-M'tJlESUltOI (a JSNUUENUX,;; THEN r&iUtfcMJl.O) » .1£KU(r.£KU1.2l '.RETURN; 'chid am 


CZF2 


0470 




•*.lXU11&1U1,0I * r£KU(RE?(UI,0) - REXUIK£NUZ,3) : 'sab UCrMtnt 


042E 


0479 




CCw3Jt 0,7:5C5UB DISPEL': RETURN: 'sfio» bci *alut 


0444 


C470 






0*44 


0470 


75: 


* or DC tic ub irraH k»v 


044S 


M73 




If XtNTfi. AOS a > 0 TH^V RE TURK: 'in too re* ilriidv 




W70 




5im s -1*5*3118 NFtf>»-»flJ»llCTtlRJI* 'iovi oaintir us on* 














i a* 


BfBtoi Bsin irros iff 


0171 


Vlli 




IP JffVJI MOD 6*5 THFM RETURN: 'in bottat rov alnadv 


0*0* 


AiT? 

V4/4 






U4?B 


0472 






AlOft 


AJ7? 


77: 


'draftee left irriim Itsv 








IF TKTfACMLIT / k\ s fi THFi BFTtCM 'in lift Cfllain alnidv 


04C0 


0472 




&Ir77 x *A*605UB KE'inEVJ*RrTURN: 'lovt DOinter ant lift 


0401 


0472 






0401 


0472 


T8: 


*arflf»*t rieftt irrBtt kiv 

when i iwt'v wm > * f 


0406 


0472 




IF IMTtflENUI / 6) « 2 THEN RETURN io right coluia ilrndy 










050A 


0472 






030A 


0472 


79: 


'tflput k*tt into KEVJ'Jf* until <cr> is tnttrvd 


050F 


0472 




L2WTE 25 ( 30:CCLCR :;,0:PRUT 'EKTES NEN VAtUE'jiCaCR 15,0 




V* 1 i 






054B 


0474 




KH1LE Ai <> OfflJ(U) 


055E 


0476 




LOCATE 25,47:^ INT SPACE t CO); 




0476 




LCCATE 21 47:r^Ii(T CETiUfI: 


nw 


6474 




AS * 


n r 9F 


V* i 9 




WILE AS * '* 


05AE 


0476 




Af * iUEYf 


05B8 


0476 




MEND 


058B 


0474 




IF Af : CV»i;8) -V0 LlKirnSUFD > 0 THEN KET&UFS 5 UrTf (KEY9UFl t L£N(KET9UFt]-l) 


05FB 


0474 




IF Af > CnRK:u THEN ICEYeUFS * KEYBUFI ♦ Af 


061E 


0474 




VEX9 


0622 


0476 




T£flf * VAL(KEYBUrf) 'tfip h«i v.luc of ktys input 


0632 


C47* 






0432 


0471 




'round oH tuo iccorainq to st to sue io ttflu imy 


0632 


04 7* 




1EXP * IKTtTEh? / tnENU(RENUt t 3)l ♦ .5) » AENU(RENUI,3) 


0641 


047* 






0661 

06a 


047* 
047* 




'tttt Tiff for iiitiut <od ti nitat vtlm in itfta trray 

IF TEW > NEmjt*Orj?,U THEN TEMP - *£KU(*E*UI t l) 


06A* 


047A 




If TW < B£WJIH£KUI,2) THEX TEHP * HENUIRESUl^) 


06CT 


047* 






Q6£Y 


047* 




'iuKt nt« valut into itnt array and upditt serin 


06O 


047* 




mWtB£KUX,0) • TEh7 


0705 


047* 




LOCATE 25,30:PRINT SrACEf(40); 


0722 


047* 




Q.0I 0 f 7:60SUB OISPnElflJ 


0734 


047* 




KETUU 


oni 


047* 






0738 


047* • 


T2: 


'sit ltfrr*Bro«n board thin print disirid pattirn 


073D 


04 7 A 






ono 


G47A 




BEE?:CTwSR 15 f 0:L0CAT£ 25,1 


073A 


0474 




PRINT 'Stt Potmtioiitirt on rr i at ir. ...thm Press any Uy 4 ; 


0767 


0474 




Af » 


0771 


047A 




•rillE Af » " 
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5 B ejgwt Jtt Printir 

Pittirn Printing P *GE 

01-17 

0ff..t M. Scurc, Un. IW , ffl0(ul ^ J 

0780 047A ; f a 

70 078A 047A «£M0 

WO 047* LOCATE 25,1:PRINT SPftCIf (791; 
07AA 047A 

'mtrr drcs pirutttrs into burr-brow board 

07AA 047A TEW » HEXUIO.OI :CALL SET.OQT.RATEUE.VI 

0703 047A TtRP • 5:CAIL SET.DOT.yiDTHUEW) 

0™ 047A T£HP « R£KUC2.0lsCALL S£T.STR0B£.3ELAT(TWI 

0S1? 047A GALL DOT.flU 
0823 047A 

0825 04 7A TEHPX * 4 

05:C 047C CALL OlGITfiL.OUTlTWI) 

2Q 047C TERPI.O; 'pulit RESET lint 

0843 047C CALL OIBITAL.OUKUHPt) 

0313 047C TcXPI ■ 4 

0B5A 047C CALL OISITAL.OUT(TtHPI) 
084A 047C 

«« lm ^^R^I CI ! T !Tn 0> * 2 " ' 1501 : Pul " " PhUdf br pui " ft ' mm Jt ftM8fr °' tl,,s ' 

25 mo °480 TEMPI /ft: *ttt HIBHER truf 

0847 0480 CALL OISITAL.rjTITeiWJ 

0817 0480 TOPI « «: ,»t HIBHER UUt 

0M£ 0480 CALL OISiTAL.ajTlTEKPI) 

08CE 0480 HEIT tl 
30 08E0 0432 

08E0 0482 'establish COM: and tnttUJiti plotttr 

08E0 0482 OPE* , CC!U:2400,M,:.:s Hill* AS II 

03F2 0432 PRINT II , •;:'.■£■:«. E?V. t ««; 
0902 0482 

°'02 04B2 ioti no:;li Qtisti 4.10 MtiMuh nt» origin 

35 0902 0482 PRINT • 
0912 0482 

0912 0482 , c*IcuUte rsB/csluia location, »ov» thtrt, and stt n«« origin 

0912 0482 II • (K£NUIi:,0l-l) » t'£NU(H t O» / 0.005) 

0934 0454 Tt ■ ISEWlU.aiM) * ir£MUtl3,OI / 0.005) 

099k 04 3i PRINT U ( :; ; t: ; '0'; 
40 0984 0486 

0934 0434 'prjat tht patttrn using rtpui couflt 

0984 0484 RE?U > REM 1 8,0) / 0.005 

0907 0488 REPIX « H£MU!9,0) / 0.005 
09fA 048A 

09FA 04M FOR REfSATI • 0 TO HEXU(7,0I 
45 0A1C 04IC 

OAlC 04 BC print the pttttrn 

OAlC 048£ FOR C7I ■ 0 TQ ELNWI • J 

oa:a 0490 ex sc*u;:icT: f o> tasua plike, pkect, fsrect, pewa 

0A4C 0492 KEIT CTI 1 
0A5E 04T2 i 

SO 0A5E 0492 PRINT ||, 'A,0,V;: VfUrn to origu | 

0A4E 0492 PRINT l!,it£?i;;FOT;T;: 'iovc to out pittirn 

0A3C 0492 HE IT REPEAT! 
OAAl 0494 

0AA1 0494 PRINT ll.MP;: rttura plotttr to original KOK * 
0A8I 0494 | 

55 ! 



52 



0 268 237 



RiifiKt Jet 'nattr 
Pitted ?f;'-titq 



70 



15 



20 



25 



30 



35 



40 



45 



.50 



ut Me* 


V%1 1 


ft* El 




0AB8 




nets 
0*88 




a? &r 




A A or 

QflBt 


AJQ1 


OfiCi 


y*.l * 


0803 


MCI 


08** 




08*? 




OB49 


j4t* 


OEU 




0*70 




OBCC 




GCCS 


AiQl 










QC8f» 




QlBA 


AiQl 


amc 




001 A 


AJBL 


006Z 


AJCl 


0067 




0067 


AiQl 


006C 


AIQL 


QDAO 


(Hit* 


000* 


v*7fc 




Ai.ec 

V4TC 




wit 


Ot-0 


Wilt 






Af 71 


Aire 


rtCOft 




Wt"U 


04 ?E 


AC Afl 




0191 




neat 






flit? 




MK 

WT* 


Af AT 




out 




OFOE 


04n 


OF 17 


04* 


or:t 


om 


Of 40 




or<4 




0F44 


m« 


0F41 


om 


0F61 


04n 


0F6A 


04* 


0F7I 


049C 


0FA1 


o*n 


OFAA 


049C 


0F38 


049E 


0F03 


out 



P«E 

0?-l7 

08:49 

IBR PtMOMl CoMutir 3i=IC C;npiltr V2 



RETURN 



'ditiQlc coil: 



PUKEs 



FREC7: 



pfilKT tl,S«MTIICTt.«>iSaiDATlCCTl,31;*U - ; 
RETURN 



PfilKT •l ( St»DATIlCTI t 2>iSCWATltCU ( ll; , 0 , J 
PRINT U.SCttlATKCTI^fSCttATItCTI,!); 
PRINT •l 1 5CllOATllCn,4);SaiDAniCn l 51| 
PRINT 1 1 , SCXDAU t CTX , 2) ; SC»0 ATI (CU f 31 ; 

print n t scNOATnc:: t :);SCW)AUtcn ( n;'ri 

RETURN 



PC1RCU 



PSRECT: 



STCFI: 



radius: « ssRttsw:AT:icn,:)-scwAT:tcT:,in*: ♦ isckoatiicu^-scncatxicti,:))^ 

PRUT II, 'CC •;5CS0ATX(CTX f 2)iSCSIIATXCCTX f ll;WIUSX5 
RETURN 



SIX » SC«ATI(CTI,4);£II « SCN0ATXICTX,2) 
SYX « SCXCATKCTl.IlitYX « SWDATKCTI,!) 
IF EXI <» 511 THEN SIX » SCM)ATIlCTI.2):EII 

if et: <» syi ms si; * scNMTxitn ( i>:tYi 



scx0ati(ctx,41 
schoatkcu,:) 



PRINT ii,si:;5t; 



IF EIX - SIX >« Etl - SYX THEN 605U8 STEPT ELSE BOSUB STEP! 

PRINT It/O'i 
RETURN 



STEFY: 



PRINT tl v EXX;SYX; 

STX » SYX ♦ 1 

IF SYX > ETX THEN RETURN 

PtlNT •; 1 E1X;SYX;SX1;SYI; 

SYX » SYX ♦ 1 

IF SYX > EYX THEN RETURN 

PRINT I1,S1X;SYX; 

SOTO STEPT 



PRINT I1,S1X;£YX; 

SIX « SXX ♦ 1 

IF SIX > EIX THEN RETURN 

PRINT M.Si:;EU;SIl;SYX; 

SIX » SIX ♦ 1 

IF SIX > tlX THEN RETURN 

PRINT »l t SXZ;STI; 

WTO ST£?X 
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5 Rei«flt J*t Printir 
ritttrn Printing 

Offstt Data Scdfci Unt 



IBH Ptnoiul Ccisuttr BASIC Coioilir 



PASE 

08:49 

V2 



70 



75 



20 



25 



30 



35 



40 



45 



50 



0F37 

0FD7 
OFDC 
OF£E 

tooc 

101E 
1030 
1046 
1046 
1048 
1048 

iosr 

1059 
I OA? 
10A9 
10CE 
1008 

ioe: 
ioe: 

10 £2 
10E? 
10EF 

in; 

1180 
1193 
1193 
1193 
1193 

::;< 

K86 

i::s 

1ICF 

nc; 
mo 

1200 

12:3 

1246 
1269 
IX 
1211 
1210 
1218 
12B8 
1298 
12C9 
120B 
12EB 
\V% 
124 
1305 
13*7 

i::a 
i:» 
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049E 
049£ 
049E 
049E 
04?E 
049E 
049E 
049E 
049E 
049E 
049E 
049E 
04 9E 
04 ?£ 
04 9£ 
04 ?E 
049E 
049£ 
04 9E 
049E 
04tE 
049E 
049E 
049E 
04 ?E 
049E 
049E 
049£ 
049E 
049£ 
0442 
04A6 
04A4 
C4A6 
0U6 
0446 
04A6 
04&4 
04A4 
04A4 
04A4 
04A6 
04U 
04*4 
04U 
04A4 
04A4 
04U 
C4AA 
04U 
04AA 
04AA 
04AA 
04AA 



SEW 



point to ana htqhhqM nt» itti 



IHU: Viti old itn in T filo« 
COLOR I4,0:GuSU8 0ISF.1ENU 

mm « nnui ♦ oifri 
:; jiemui * 10 the. 1 * unux * 9 
if p.ekuz « u then hekui * 9 
i; Kim > is them «nux « 13 

COLOR 0,7:50SUB OIS?R£KU: RCTUAJ1 

INITIALIZE: 

'cninqt to sen to 0 and display us s ion 

SS \i&n£**i£iS , '* ,7!PRI " T ,LMdi " s Mi ' ct " '■«« «»«■. 

'ioitialm aotfpad on scrtw 2 
SCREEN 0 f 0 f 2.i:CL3:CCLQS 13 

SSlfi?! HMUi ' ' U,QrMll0> trp,d htff is IMt t0 th « P' Jn "' # 

iflitiilwf ifftu jrrjyi 
RESTORE WROATA 
FOR IX«0 TO 17 

REAO flEKUltlt.Oi.HEKUKIl,!)! 

READ R£NUCIX V :: ,R£!IUI1X,2S .HCHUCIX.SI ,RENUCIX,4I 

NEXT IX 

'jtt dtfautt rcaatflt md read viUts 



U?UT AS II 



open •reasef.r;;* 

INPUT lUFILEl 
INPUT ll,REANAA£S 
CLOU II 



OPE* FILES FOR INPUT i> II: 
INPUT M,«t.'iU(0,0l: 
INPUT t!,.*E.NUM,0): 
INPUT H.-EHUCOl: 
INPUT ll,NEKU(3,0l: 
INPUT ll t tf»U(4,0): 
IKPUT II.JKNUCS.Ols 
CLQSt II 



*9«t ruornt data 

'Jiolitudt 
strjot dflay 
'puis* •uth 
'ritt tiit 
'fall tiit 



*9«t dt'ault cattirn <iU and rtad vaUu 

CPU •PATOEF.RJP' FOR INPUT AS II 
INPUT U.FILEI 
INPUT tl,PAT!U*EI 

close it 



OPEN nui ;c? INPUT AS II: 

input ii.Eimz: 

INPUT liJl£MJti,Oi: 
INPUT ll t AENU(7,9): 
INPUT H f flENU(S,0): 



')ft pattira data 

Vvptat count 
'i oHwt 
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Re«tnt J«t Printtr 
Pitttrn Printing. 



70 



T5 



20 



25 



30 



35 



40 



45 



50 



OHstt 


OiU 


1330 


04AA 


1IAJ 


04AA 


1IBI 


04AC 


13B7 


04 AC 


1308 


04AC 


1XE8 


04 AC 




04AC 


1101 


Q4AC 




C4AC 


i ini 




1404* 


04AC 


MIC 


04AC 


l lit 


04 AC 


1459 


04 AC 


1(74 


04 AC 


1474 


04 AC 


(474 


04 AC 


1474 


04 AC 


14^1 


04AC 


1*9] 


04AC 


M52 


04AC 


1409 


04 AC 


14C3 


04 AC 


1523 


0480 


153E 


0480 


1348 


0480 


15C8 


.0**0 


15E6 


04B0 


15ED 


04BO 


ISF7 


04 BO 


162 A 


0486 


IMS 


0486 


1 0* J 


0486 




0486 


U4S 


0484 


1 041 


0484 


U57 


0414 


I WW 


0484 


1440 


0414 


mo 


0484 


1440 


0414 


1680 


0484 


I486 


0414 


1684 


0484 


1684 


0484 


1492 


0484 


16C1 


0484 


16f0 


0484 


170 A 


0484 


170A 


0434 


1754 


0484 


1793 


04&4 


17E9 


04B4 



Source Lint 



PAGc 

09-17 

08:41 

IB* PtrsanH Cci outer 5-3IC Ccasiltr Y2 



IXPUT ll.J".£).-Uf9.01: 'l of**tt 

FCR II * 0 TO EJOtt-t 
FOR JI 1 0 TO 5 

IKPUT 8I,SCR6ATl(Il t U) 

REIT Jl 

K£IT IX 
CLOSE II 

'set rriunino, piritntrs in irnu irrjy 



R£XUU2 f 0) > it 
htKUU3 f 0» * t: 
K)OJ(H,0) « 0: 
!EKUU5 t 0) » 0: 



'ro» I 

'COlttM 1 

'ro« spteiao, 
'colutn spiciao, 



'ctunof ictivt disoUytd unio to scrttti 0 to dri» tnd displty ptriMttrs 
SCREER 0,0,0, was 

COLOR 13:L0CATE l,:i:PM«T 'KEASEXT PRINT IKS*; 

C3LK 9 

FOR I>2 TO 79 

LOCATE 5 f l:MtRt CKRIU96I;: LOCATE 5,1:PR:RT CHR$(20SJ;: LOCATE 18,J:PRI«T CHR$(194>i 

REIT I 

FOR 1*4 TO 17 

LOCATE t t l:FM».: CHRl H79l;:LCCATE !,:B:PRWT CHRft 186);: LOCATE 1,!4iPRI»T CHRl ( 1861 ;: LOCATE I f E 

RUT CKRfU791| 
MEIT I 

RESTORE TABLE 
FOR l'l TO 12 

rtEAO ri,::.v.:;::ate ri ( c::primt chrmki); 

ME IT 1 

'diftpUy 16 itflu chotcrf in yiUoi 

taw 14,0 

FOR REKUX • 0 TO 15 

60SUB OtSPREKU 
XUT REWJl 

*Mt for first twin tntry tnd Highlight it 
hXRUl • 0: COLOR 0,7 
USUI 01SPREHI 

'priot thru httiinjs and instructions 
COLOR 10,0 

LOCATE 4,l4.3-L£M(R£A!IAHcS)/;:PailT REARABElj 
LOCATE 4,41-LENtPATRA.lEI)/2:PRUT PATRARES; 
LOCATE 4,40:PRIRT *PRtRT L0CAT10T; 

COLOR 7:L0CATE 19,:C:?RIHT 'Lst 'pCOLOR 15:PsIHT CH3ll27):CUIfl32) jCttl(24); 
PRIST CHRfC:J:Ci«l(:4);CMRH3:):CHRt(231;:CaOR 7:PRIRT ■ to position htohliqntrt cursor 1 ; 
LOCATE 20,I8:PRUT •Us* ';:CX0R 15:PRIRT '♦•;:CaOR 7:PRIRT • or VCOLOR 15;PR1RT 
COLOR 7:PRUT' to scroll currwt tiim up or do*'; 



55 



0 268 237 



5 



10 



15 



20 



Rtiqtnt Jot Printtr 
PUttr* Print) flo, 

CNfstt DjU Sourci Lint 



30 



35 



Pft 

0? 

oe 

[in Ptrioul Catptttir BASIC CuoiUr 



25 



i;fd 

IB3F 
1867 
IS7C 
189C 
185C 
189C 
18B1 

teas 

1S3S 
138A 

ie:e 

1933 
1934 
19S9 
19S8 



0436 

0416 
W84 
«tt 
WBA 
04U 
04B4 
UI6 
0484 
04 S4 
C4tt 
04E4 
0486 
0484 
3486 
0484 



IC^TE ::.i:PRI»T *U$t •;:CCL0» IMPRINT *P*;:C2U3I» 7:?R!NT • to prut patttrn or 
CCtCR i::. e ?I»iT •E'.-rCOlOR 7:?RINT • to Hit to print IW«*; 
PRUT • or •;:C3LW \MUtl 'S # ;:C0LCR 7;PRINT • to use ftOitpad*; 

'itt scrtfa to vie* icnu just crtitN uitf wit 

screen 0,0,9,0 
RETURN 

IF Htm * 10 OR NENUZ ' 11 THEN RETURN 
LOCATE CRENUl ttO 6) 12*7, (INT(H£NUl/4I i28*2)-2»INT(BE5UI/12l 
PRINT AtYJflK£NU:,OI 
LOCATE (REM NQO 6) #2*7 v HCHUf llEMtZ v 41 
PRINT USING ttNUI in£NUI, 1) ;ft£JiUtKKUI,0); 
RETURN 
REN fPAEE 



40 



45 



50 



55 



0 268 237 



5 



70 Pittifn Frintinq 

0M$it D«a Sfijra not 



PfcfiE 
01-17 
08:49 

[ER PtMCftil Couutcr 5A5IC Catoilir v: 



15 



20 



25 



30 



35 



40 



45 



l9or 


am 


tHMMMM* :;ta usi» n this 


19SF 


0484 




198F 


0484 


*&a£ATA: 


IK* 


0484 


;;t; *:3i Fmuc»e7 


19C6 


0484 


DATA *Aa;liUdt 


19C$ 


0484 


OATA 'Stroit DeWf 


I9CA 


0484 


DATA 'Pulse Hidth 


19CC 


04B4 


OATA •Riu Tiie 


I9CI 


C4U 


DATA •Fail Tilt 


1 900 


0484 


DATA 'Srid Site 


1902 


0484 


DATA Scpttt Count 


l?04 


0434 


DATA 'I Atu Offset 


1904 


0484 


DATA M Axi* OHstt 


19 OB 


04U 


DATA ••,••,0,0,0,0 


19;; 


o;u 


DATA 'V, 0,0,0,0 


1 9 DC 


0484 


DATA *Ro» to Print 


t« 


0484 


DATA 'Caluw to Print 


19E0 


04U 


DATA a Rs« SpKinq 


1912 


0484 


BR It* wJlUin 3|f«k*n^ 


HE4 


0484 


DATA 0,0,0,0 


19E4 


0414 




11E8 


0484 




ins 


0484 


TABU: 


I9E0 


0484 


DATA 3,1,218 


19EF 


04B4 


DATA 3,28,210 


19FI 


0484 


DATA 3,34,210 


19F3 


04 B4 


DATA 3,80,191 


19F3 


0484 


DATA 5,1.198 


19F7 


04B4 


DATA 5,28, 206 


19F9 


0484 


OATA 5,54, 204 


19FB 


0484 


DATA 3,80,181 


19F0 


0484 


DATA 18,1,192 


19FF 


0414 


DATA 18,28,208 


lAOt 


0414 


DATA 18,54,201 


LAOS 


0414 


DATA 15,10,217 


IMS 


0414 




1A93 


0414 


ore sd 


1A0C 


0484 




IMC 


0484 






0484 




30424 lytM «T«l*blt , 


U7U 8*10* 1 


Frt* 



50 



0 \Urnin$ Error (t> 
0 S«»ir* Error Ul 



H:\ Ml, IM\ 10000,1, 1,14 
V '/tit', 150. 0,1. It 

• ( MII',999 f 0,l,lt 
•/•ll'^WAl.il 
VII8\W,0,1,U 
i»* f M.I« , ,.M3..OO5.-00S,4S 

• ( Mr,«,0,l,47 
it»VI.Mt\2,0,.003,43 
jiVl.llf ,2,0,.005,43 



,Mr,91 1 l,l,74 
/ttVM,i,74 
i ft ' ( M.lir ( J,O t .003,72 

in',M.iir,:,o ( .oo5,n 



55 



5" 



0 208 237 



07-J9-86 

Off": t-..r. •-, a 13:04:35 

.... « :.r. t ?, PiaiUl Cosouter SA . IC Com} . fr v2i5o 

S S : »"^r TL5 -''--'*«' t -«*--» f ^ OSTITIS: 'Snqm flu,- 
0035 oo:I " ; " :ti r, ' e hanoling for reagents 

oc:a o:; 6 ajth?? . K . A . Enevol4 

0035 OCC4 

oo» . isS(,ia " ,:i "» Kar > commits 

0030 OCW • CrMtlM °' ,nitiil cod « 

0030 cjjj ;sira -W. S .«H«. y H, M p|, ld 5, 

0030 KM ' C0P,ia « lt «""otru. M< ,rt 6 .lRTERWJETa!! 

0030 0004 •CnaiPTION: 

0030 ,i ,,le " - '« 

™ * contents " the r, "- t » « «i- 

tin, is J* f,l9tnt " hUn ' S tUrrMt " «" 

-irKtj;, - : t j 1 i i iitt,,,,i> '. iifM «" t "«- 

< right ^onlri* ' th0 ' C "- Th ' l '« « 

tc i nvo k r!c d t 1 t o 0 „ M ' h,i9ht U «' <» «" 

o°o e S 22 •' ,MU ch0,ces " tie " "« 

00IO 0006 • 

ry EEU,C * '«9*nt file frsi the directo 

0030 0006 * r- ?Y 

^ .:5v a reagent file t 9 a nt. reagent n 
old reagent 

«W.E - C^nce the naie of the reagent .ithout 
facent itself 

SELECT - 5#lct a reagent tor printing 
tin - return to the earn *enu 

Which type of valid key »as pushed 
Wuch aeon ttei is being pointer to (0-4) 
Distance to aove fiEHUZ at left or right arro 

Error type 0-4 

Position of SEASfiMEt in directory list 

"caber of reagent naaes in directory 

Storage tor integers during reagent copy 
Hisc, input string 

Printed at bottoa of screen during proipt fo 



0030 0306 

0030 0006 

0030 W06 

0030 0006 

0030 C006 







*M t saving the 


0030 


0006 




0030 




changing the re 


0006 


0030 


0006 


* 


0030 


0C06 




0030 


0006 


'data oiCTicscur 


0030 


O0C6 


nm 


0030 


0006 


OUX 


0030 


OOOi 


0IFFX 


0030 


00C6 


V 

FLAK 


0030 


0006 


POIHTERI' 


0030 


0006 


REAM?!! 






list 


0030 


0006 


TEffZ 


0030 


0006 


A* 


0030 


0006 


RWCTI 


0030 




r reagent naae 


0006 


KAJiAKS 


0030 


OOC'6 


SElwhei 


0030 


0006 


FILES 


0030 


^ * • . 


3?;lei 



•» «*«*cy rgr priming 

Mienaie ot reagsnt cata file 

Filenaae rar source reagent data file used d 



0 268 237 



feager.t Jet Printer p,„- 
Reacent Filing 07-09-36 

15:04:33 

Offset .<»:* Source Line IE* Personal Coaouter BASIC Coaciier V2.C0 

u. r inq cssv 

00^0 C0v6 v~\li$ -iier.aie tor destination reagent diU rile u 

se: *yr;n; ccay 

0030 °° c * wEiiKMEl «h reagent na*e for COPY -and REMflE 

0030 COCe * Seacent nanes are held here as the directory 

is :eing re-wntten 

CC30 COCo * NEirlLsl destination filenaee used while copying reag 

tut data uies 

0030 0006 ' PASSAGE* A aessage printed at the bottoe of the scree 
n 

0030 MC * ' KKWCI.n Array of strings containing the short and lo 

ng *enu naaes 

0030 0004 ERRHSSt Message printed nhen any error occurs 

0030 000i ' ESRf Appended to ERRftSS* to indicate nature of er 
ror 

0030 0006 *Eh* tPAcc 



p eagent Jet Printer ?fiS - 3 

Reagent Film; 07 . c9 . 36 



Offset 


C.ta 


Sour:? Lioe 


IB?. Personal Ccaouter BASIC Coeoiler 


0030 


00CA 


sv? re;;dt,f: 


III STATIC 


0047 








0047 


0006 




INITIALIZE 


0040 


0006 


T7PEX 


* 0 


0054 


0008 






0054 


ooca 


•KILE TYrSl <> 3 


005F 


0008 




A$ * *• 


0069 


oooc 




WHILE At « 


0078 


oooc 




a$ i mm 


0082 


oooc 




MEND 


0085 


oooc 




IF Al s CHRIIO) ♦ CHRH75) THEN TYPE! « 1: 






'left arrow 


00AA 


oooc 




IF Al = CHfil(O) ♦ CHRK77J THEN TYPE! = 2: 






'right arrow 




CCCF 


ccoc 




IF Al * CHS 1(13) THEN TYPEI * 3: 






*<cr) to execute selection 


00E9 


oooc 






00E9 


oooc 




ON TYPEI 6GSUB Tl, T2, T3 


00F8 


oooc 


•'END 




00FC 


oooc 






OOFC 


ccoc 


€117 S; 




0100 


oooc 






0100 


oooc 


REH f?WE 





0 26C 237 



Reagent Jet Printer PA - £ 4 

Reagent Fin no 07 ! 09 . a6 

13:04:35 

Offset Data saurce Line IE* Persesai Ceacuter BASIC CocDiIer 72,00 



0100 


occ: 


■««•«♦#♦ £j3--:jt;m3 f:s Vr.i; sgdule 


0100 


oooc 






0100 


oooc 


Tl: 


"*ett arrow 


0105 


oooc 




Tirll * 0 


010C 


x-oc 




IF flsr. r 0 THE* RE7UM 


one 


OCvt 




Jlrrl * -I 


0122 


0010 




?CS*J3 NEK.SSJfJ 


0123 


0010 






012C 


0010 






oi2T 


ooio 


72: 


Vioht arroa 


0132 


0010 




ma * o 


0133 


0010 




if kw: = * tkem Rsrjsa 


0147 


0010 




OIFFI = 1 


OUE 


0010 




B53UB ttV.JIEUJ 


0154 


0010 




RETURJI 


0158 


0010 






0153 


0010 


H: 


"<cr> (eiecute selected 


01SD 


0010 




LOCATE :j f l:Ffi:nT SPACES (79.); 


017A 


0010 




w .tznii ♦ i gcSwS tjb, T3C 


018F 


C010 




SC3U3 ilESTJ.CN 


0195 


C010 






0199 


0010 






0199 


0010 


PEA tfASE 



60 



0 268-237 



R**?t«t Jit Printer 

Reigent FiUna , r „.,,. 

Offset Cats Source Lint ?«r S cnii Center BASIC Cc«iler V2.00 

01?? 0010 *3A: 'delete reicent 

019E COIO TYPSX « 0 

OiA3 OCIO FUNCTS * 'Delete* 

Oltf 0014 SGSUB 6ET. SOURCE 

0 , E5 COM IF LDHREttMEH ' 0 THEN RETURN 

01C7 0018 IF SEAKARES » 5ELKAJ1E* THEN FLAG! -- 4:GG5U8 SHOM. ERROR: 
RETURN 

OiE7 001E 63SUB SEARCH 

J!„ oos£ IF POIKTERI « 0 THEN FLABX » U60SUB SHM.EKORiSETURR 

0209 0020 

0209 0010 HESSAScS * 'Deleting • ♦ REANAHEf ♦ * Pl«« Hut.. 

■ 

0220 0024 60SUB AES3A8E.0N 

?22t 0024 'rewrite directory deleting REANASE$ as indicat 

ed by POINTER! 

022S 0024 KILL ■REAOIR.CLD* 

022D 0024 NASE •READIR.RJP' AS •REAQIR.OLD' 

023 7 0024 OPEN •READIR.OLD* FOR INPUT AS II 

0243 0024 OPEN •REAOIR.RJP' PGR OUTPUT AS 12 
025A 0024 

025; 0024 INPUT II, REANUNI 

026C 0026 REANUSI * REAMS! - 1 

0275 0026 WRITE I2,REANUSI 
0286 0026 

02B 6 0026 IF REAKUni ■ 0 THEM SGT3 OIR.DONE 

0295 0026 FOR II « 1 TO R JANUS! ♦ 1 

02A4 0028 I* PUT •LStAWEt 

023i 0028 V U ° FCIMKX THEN PRINT I2.REAHASES 

02D3 002A NEXT II 
02E5 002A 

02E5 002A OIR.DONE: 

02EA 002A CLOSE 4i:CL0SE 12 

02F8 002A 

02F8 002A 'reiove data Hie 

02F8 002A FILE* * RIGHTS (STRJ (POINTER!) .LENISTRI (POINTER!) ♦ 

•REA.RJP* 

031C 002E KILL FILE* 

0323 002E , . i * l j 

03 25 002E 'rtnut retaining data files to uintain linked 

list to directory 

0323 002£ WHILE (REANUH1 ♦ I) > POIKTERI 

0 333 Q02E SrlLEi » RISHUISTRHPQ INTERIM) ,LEN<STR$ (POINT 

ERIMD-ll ♦ 'REA.RJP' m 

0359 O o32 DFILEI « M6HUKTRI (POINTER!) .LENISTRSI POINTER 
DM) ♦ 'REA.RJP* 

0370 0036 NAflE SFILEI AS DFILEI 

0337 0036 POINTER! = POINTER! ♦ 1 

0390 0036 

0393 0036 

0393 0036 6CSUB SESSASE.QFr 

0399 0036 REASAilEI = acLKAJKf 

03A3 0036 G0SUBT3DA 

0:;9 0036 6CSUB DISP.OIR 



61 



0 Z68 237 



5 



70 



IS 



20 



25 

teaswt Jet Printer 

Reagent Filinc P;S£ * 

07-0?-9i 

° ffSet Diti Sc ^« «« Persons Cc.outer 3A3IC Co.p»l" W.M 

o:;r oo:© retukm 

0333 C03o 

03B3 0036 RE" $P;S£ 

35 



40 



45 



50 



55 



62 



0 268 237 



Reagent Jet Printer PASE 7 


Reagent Filing 


*>/ w" 3ft 






15- 04* ~5 


Offset 


Data 


Cnuf ri 1 in* * - * Par tnnil r**»niifor SiCTT ^'.arti 1 or V? HA 
wwur Line ' ersonil ww»UULer sn31L wwswiier *4<uv 


C333 


0036 


T3S* "rnwv rpj^inf 


03S3 


0036 


TYPFT s 0 

lift* ~ V 


033F 


0036 


IF RFAKUA7 a SO THt-i FLA6I s 3»£0 C UB SnuW F?$2fi* XFTURN 
jr ncnnurik ow intti r wnu» 41 su«uo jnuw« tr< nun* al iui\n 


03DB 


00 3 A 




03E5 


Q03A 


QU3U0 G.i»3uJnUt 




003A 


TF t F>4(PF&M.5*tl a 0 TKF'J RFTURN 


03F0 


003A 


DU3US 3£ttnL/l 


0403 


003A 


IF P0INTFRI s 0 TMFM Ft ART s t'fiflSUP CKTti! FhROR* kFTIIPN 


w*» lr 






OA i r 
w* i r 


003A 


CnCIIP CFT WZ'J U£MC 

oU3U0 dc 1 • wt*« nunc 


0475 




TF 1 FNfNFUNAMFtl s 0 TKFN PCT1IDM 




C03A 


IF LFNIKFVJiARFSl > 15 7HPN Ft A6T a ?»$n$U6 SMQW FSR0R»P 

ir utt»»»t«rtfint? ( / u I n*»ri rung 4 * 1*3U3UB 3njli cnnuiwn 






FTURH 


0457 


00 T A 




0457 


003A 
vw jn 


MFCCACFt = •finvmn * > PF£V£MF< * • fn • + UfUU*flrt 4 






* PI titi Mjif * 


ni7r 


003A 


DU9U0 rtC33HOC. un 




0OTA 






003A 


aoy new naif at eno ot directory 




nn?a 


KILL ftCMUln.ULU 


ni53 




uamp B Pr£MP pip* , cc*ntp ni n* 


0493 


OOTA 


opfm "RFantP n; r • rna tmpiit it 


04A1 


AA3A 


OPFII a PFA01P BJP* FnP OUTPUT AC 1? 


048A 


Q03A 




04S4 


00 3 A 


INPUT 11 RFAMUHT 




0034 


s ftF£*«lJMT *> 1 




003A 


WfllTF 1? cr«LMMt 

■HI IL l( ■ i>«n.lUn4 


04E2 


003A 




04E2 


003A 


FQR II • 1 TO R'hKlRI - 1 


04F1 


00 3C 




0503 


0040 


PRINT 12 Tt^PI 


0513 

W J i * 


0040 

vv^w 


UCTT IT 
nt a I l it 


0575 


0040 


FfilMT 1? MFVUAXFt 
rnini f£|HLH!%nnc« 


Jw^ J 


0040 

VV1V 




0535 
W jJw 


0040 

VV^V 


LLU3& fltLLUwC t£ 


0543 


0040 
ww^v 




0513 


0040 


tiBilC tUSf Of Dili TUB 


0513 


AA1A 


Fit Ft s PfnUTt IGT2C f PntNTFP*) ! FMfCT&t 1 POTUTrOT 11 .1 \ a 






•pen pip* 


05/17 


0040 


MFlfFUFl » Rt&HTit^TfiifRFAtitlJtTl 1 FU (CTPt/PFAllttHTl 1 .11 4 










0044 






0044 


OPEN FILES FQR INPUT AS It 


059C 


0044 


OPEN HtMFILFt FQR OUTPUT AS 1? 




0044 




05AF 


0044 


INPUT tl,TEHP 


05C0 


0048 


WRITE I2.TEi1P: 'freouencv 


0500 


0048 


INPUT liJEKP 


05E2 


0048 


WRITE »2 f TtflP: 'pulse width 


05F2 


0048 


INPUT ll t TtHP 


0604 


0046 


WRITE I2JBP: 'strobe delay 


0614 


0048 


INPUT ItJEH? 


0626 


0048 


WRITE S2,TEHP: 'nozzle 


0636 


0043 





63 



0 268 237 



5 



10 



IS 



20 



25 



30 



35 



Sueent Jet rrinter 

Keicent Filir.c pfiSE 3 

07-09-36 

Scarce Lint ran P er5CfuI CoKutfr fiftSIC Ca „ u J; S JJ;rJ 

INPUT tl f T£«P$ 

FSINT 12, TEMPS: 'concentrition 
INPUT II, TEMPI 

PRINT n.TLWi 'dwsity 
INPUT It.TDlPi 

mm H f TBMi 'viscosity 
CLOSE lUCLOSE 12 

SCSuS S*:3n5E.Crf 

60sus oisp.ew 

RETy'SM 
REfl fPAoc 







063o 


0043 


0643 


C04€ 


0653 


0048 


066A 


00*3 


067A 


0043 


06SC 


0043 


C65C 


0C48 


069C 


004& 


06AA 


0043 


06a; 


0C48 


0630 


0048 


0636 


~43. 


06SA 


0043 


063A 


0048 



40 



45 



50 



55 



64 



0 2*8 23V 



Reacent 


ill Pr 


inter 


PASE 9 


Reaaent fiiica 




07-09-86 








15:04:35 


Offset 


Ziik 


Source Line IBB Personal Computer BASIC Coipiier V2.00 


o&b; 


C045 


"C: 


'renaae reiqent 


06SF 


0043 




TYrEI s 0 


06CS 


0043 




FUHCTI s 'Renaie 1 


06C0 


0043 




6G3UB GET. SOURCE 


0606 


0048 




iP t cm rof 'UftvCtl - A TUCU 

IF LLrtlRtrtnft™t») - W iHtN hfclUMi 


06E3 


O048 




G0SUB ScHitCH 


C6EE 


0048 




,. efiriiTro« . a tucu ci act - t<cnC'lQ cuny FRSDR • RPTURH 
IF PuiHTcRfc s 0 IHcN rlflbi 3 i.oUiJS „nui. tnnun.nti unn 


070A 


0048 






070ft 


0048 




OUSuB DCl . ttti«"Hnt 


0710 


0043 




IF LENlNEWNAnt Si s 0 lncN htlUKN 


0722 


0043 




. _ , ni>urLMutar»i \ it tutu ci • ^•cnciio cuny FBEn&»& 
IF LEN(NEfcNAflES) > 15 THEN FLAoi • ^;faU3Uo 3ttd»,tniuJK.K 






rruRN 




0742 


0043 




tp urutiAHf* - t<££U*MC< TUCU DCT1ICM 
IF HtliNflntf - ntfiNnnt* intw ntiunn 


0755 


0048 




wFCSaSF* s 'Rpniaina * ♦ REANAAEI ♦ " to ' ♦ NEMAJtES ♦ 

P,t33"Qt» rlCHBBllHj nfcnnnitfcf »w * 








Please «ait.»* 


077ft 


0046 




cncna aFceter fly 


0790 


0043 






0790 


0048 




'renatinq reiqent naie in directory 


0780 


0043 




KILL KtflUln.uuJ 


0787 


0048 




uamc •DC&MQ C!P* '£?ADIR OLD* 


0791 


0043 * 




not* •oriniP ri c* r*R INPUT » 11 


07A2 


0043 




npru •RF&31R RIP" FQR OUTPUT AS 12 


07B4 


0048 






0784 


0043 




INPUT 11, REANUHI 


07C& 


0048 




WUTE l2 f REAHUni 


07D7 


0043 






0707 


0048 




FOR II s I TO REAHUH 


07E4 


004A 




INPUT •l.TE-FS 


07F& 


0O4A 




if no po;*:er: then prist iz.tehpi 


0813 


004A 




if ii = poik'-r: then print i2,nemnarei 


0830 


004A 




NEXT II 


0842 


004* 






0842 


OOM 




CLOSE lUCLOSE 12 


0850 


004ft 






0650 


001ft 




6CSUB RESSA6E.CFF 


0856 


004A 




IF REAKAHES = SELHftnES THEN REANAHE* = NEUKARcliSOSUB T 






IDA 




0875 


004A 




6QSUB 0ISP.D1R 


087B 


00 4A 




RETURN 


087F 


004A 






087F 


004A 


fan spftSE 
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Seaotnt h:?.ttr 

Reagent fihsg ' p *St 10 

07-09-94 

OHm: lata =s-ce » - ... U:M:ZZ 



I» Personal Coisutir BASIC Caioilr'w.'co 



0S7f 



:eiect f«i«nt for printing 



0E3i C5<A - ini , fl 

0885 W4 * re£7« » 'ielecf 

0855 C v« SujJB SET. SOURCE 

III' IF ^" S «««'» - 0 THEN RETURN 

c" iftJ*?^""** S SELHAJ1E* THEN RETURN 

0bl "' 3Ci " 30SV8 T3IA " 

0SC4 ;•)« 633U8 B1S?.BIR 

OBCC CC« Rnujyj 
08DO ?<:i^ 
0800 &;« niA: 

0835 »« ttrj3 

08P7 So If mKmi ' ° ™ EM FL "« ' KKSUB SHCK. ERROR: R£Tj(iK 

08F7 00« ^ KEtSAott ■ 'Selecting • ♦ REANAflEJ ♦ • „ mt Uit 

Z oo2 K ~ £ ' c " 

09! 4 C04A 

JP C ' l4n9, efttr " r "9*"t default file READEF.R 

ori uJi ■««&-.«?• for cutput «s ii 

"REA.RJP*^* = RIBHTiJSTK* :? GI.VTcSZJ t LEKCSTRJ tPCINTESZJ )-l J ♦ 

094ft OOW 

OT4A PRINT t] .FILES 

0 CCIA «I«II|,KAB«, 
094A CC4« 

094A K « acs£|l 
0984 «U fr* 



66 



0 268 237 



10 



is 



20 



25 



30 



35 



40 



45 



PAGE il 
15:04:35 

Cfrset titi scare « Lint IBn Personal Caiouter BASIC Cosailer V2.C0 



G?a4 




0989 


**** 


0990 




09A1 




0933 


« * • * 


09C9 




0?u- 


Art 1 A 


wire 


• * t • 


0A0E 


• » j 4 


OAII 


t\f. • A 






Ofiifl 


WM 




AA1A 


0h35 


v04A 


A*~? 


AAii 


Ohvrt 


ArtlA 


OA&C 


MM 


Q«7A 


Art iA 

WU4R 


0A97 




0A9B 


004A 


0A9B 


004A 


On AO 




QAlo 


AAA A 


A*ni 




a* n 






f niA 


a * r< 


Art! A 


0«r ft 


MIA 


OAFA 


004A 


OSOI 


004A 


fl.fi 1 B 


MIA 


OoZr 


AOAA 








AAAA 


ADA? 










00 4A 


UDQT 




UD/W 




0B88 


0C4C 


0B97 


004c 


OBCA 


W4€ 


OBOft 


mi 


OBEC 


W4E 


OBEC 


004E 


OBF A 


CG5C 


ococ 


OC50 


QC3F 


0C50 


0C4C 


0050 



Urv 



?c;kterx = o 

CP EN -^EADIR.RJP - FOR INFUT AS tl 
IK? UT tl^EASl^X:' git nuiber of reiqents in flirec 

IF REANUNX ' 0 THEN CLCSE IWRETURN 
7EXP* = 

WILE IPOINTERX < RtANUKl AMD (REANAfiES <> TEMPI) 
LIME INPUT ll t TEKP$ 
P3IN7ERX = P01HTERX ♦ 1 

VEND 

IF REANAREf <) TE«S THEN POINTERX ■ 0 
CLOSE II 
RETURN 

GET.SCURCE: 

LOCATE 25,1 '.COLOR 13.0:PRINT 'Enter Reaqent N.ae to 'FU 

NCTS* 

LINE INPUTf'^EANARES 
LOCATE 2S,1:FRINT SPACES 179) ; 
RETURN 

6ET.NEN.NAnE: 

LOCATE 25 f l:COL0R 15, SPRINT 'Enter Nt» Reaqent Nate 

LINE INFUTs 

LOCATE I5 t l:fRIn; SPACE It 79); 
RETURN 

CIS?. CIS: 'display reaent directory :n 4 coluins of 20 r 

'read selected reaqent into SELNAREf 
CPEN - READEF.AJ? B PGR INPUT AS II 
INPUT •l,SELNAn£$: 'read and discard data file nai 

i 

INPUT U t SELNAK£S: 'read and save reaqent naae 
CLOSE II 

OPEN •REAOIR.PJP* FOR INPUT AS li 
INPUT ll,REANUnX:' read nmber of reagents 
NESSASE* * 'Reading Reaqent Directory Please Naif 
S0SU8 HESSA6E.0N 
FLA6X * 0 

TERPl « REAKWIZ - 1: IF REANUHX < 80 THEN TEJ1PI * REANUB 

1 

UBM FOR IX « 0 TO TEHPX 

50 fl 6„ MA£ LOCATE (IX BOO 20)M f <»TCIX/20I«0M 

PRINT SPACE! (18); 

KIT IX 

PGR IX « 0 TO REANUHX - 1 

55 ii" input h.reanabei 

LOCATE (IX SCO ZOin f llNT(i;/20)i20}*3 
PRINT REANARES; 

IF REAIiAPES * SELRARES THEN LOCATE (IX ''CO 201* 



0 268 237 



Reaoeflt .*ai Printer 

Rejger.: ?Uj„ 9 PAGE 12 

O7-09-S6 

Offsit Sit, scurct un. , . . 15:04:33 

one oc!o KEIT;: 

OW OOK 3SSBG3W.SF 

OC3D oes-3 , ETKJ , 

occ: ocas 

OCCI 0510 • IHTMUZI: 

oca 00:0 •»«»,„,„ 

OCtf L°' 8 . •C.l.t.. 

QCDF 00/3 ftft.'ijra m - 

«» «-3 S!?;-! ; .: 4 r,i « Mt «»• ». <ir ect ,r y . 

0048 007B it , » 

oo69 • gSSJ - rH9ent * ne in the 

0D84 0078 iPVMt/- n . J , 

0B07 0073 C01M?.J-CLS 

OOEA 0079 L0£TtE , 

0DF7 M78 nan. to io 

OE08 0078 NEIT II 
0E13 0076 

0E1J 0073 FUSk.otoi 

0E.7 0078 KIT HEMS 
0EJ7 0078 

0E37 0078 S0SU3 CIS?. SIR 

0E58 0073 RITUKI 
OESF 0078 

0E5F 0078 KEV.KciCh 

OEM 0978 eosot n m . m 

orTx 22 »« • IOHI ♦ DIFF1 

0E74 M71 esses 

0E7C 007? RETUm 
0E80 0078 

0E80 0078 KKU.01: 

0E9C 0078 COLOR 0,7 

OEM C078 p RIKI r.EWiHEVJZ.O); 

S S U»Tc2S,ilHB(raBl(!Sm l ,,, /2 

0078 COWS 7,0 

0F04 0078 nm aamKKmtt ,,, 

0F25 0078 S£TWM 
0F29 0078 

«FI9 0078 n£Ntt.Cr7t 

0F2E 0078 LOCATE 22, HIEXBIiiOl ♦» 
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*saqar.t Jet Printer 
Reagent Filing 

Offset Data 



PASE 13 
07-09-S6 
15:04:33 

[in Personal Coiouter -ASIC Cc»oiLer V2.00 



0F<5 


0073 




CCLGR 14,0 


GF51 


0C78 




rnlKT nES'Jf (ReHUX.01; 


0F6F 


0073 




LOCATE 25 , 4C-IEH CflcNUS IHENUX, 1) ) 11 


0FA3 


0078 




PRINT SPACE* iLENIJlEKUKBEKUX, 1) )) J 


0FC9 


0078 




RETURN 


OFCC 


0078 






OFCC 


007B 


SHOW. ERROR: 


0F01 


0078 




ON FIA5X 60SUB ERi, ER2, ER3, ER4 


CF£2 


0078 




ERR«SSS * ERRS ♦ • Strike any key..* 


0FF2 


0C80 




LOCATE 24 ( 40-LEHlERn.".S3l)/2 


1014 


0080 




COLOR 13,0 


1020 


0080 




PRINT ERKHSSt; 


102D 


0060 




AS * *• 


1037 


0080 




WHILE AS * " 


(All 

lv-»0 


OOEO 




AS * INKEYS 


1050 


0080 




VEND 


1053 


0080 




60SU6 KESSASE.OFF 


1C59 


0080 




RETURN 


1050 


0030 






105D 


0080 


ER1: 




1062 


0C30 




ERRS = REAKAflES ♦ • Hot Found in the Directory* 


1072 


0080 




RETURN 


1076 


0080 






1076 


0080 


E?.2: 


ERRS, a •Rnqent Naie is too Long (15 characters mi.)' 


107B 


0080 




1085 


0080 




RETURN 


1C39 


0080 






1089 


0080 


ER3: 


ER?S = 'Directory is Full ISO reagents in.)* 


108E 


0080 




1098 


0090 




RETURN 


109C 


0080 






109C 


0030 


ER4: 




10A1 


0080 




ESRi = -Cannot !*ooi*y SELECTd reagent Naie 1 


10A8 


0080 




RETURN 


10AF 


0080 






10AF 


0060 


AESSA6E.CX: 


1034 


0080 




LOCATE 24,33 - IEN MESSAGES) / 2:CQL0R U,0:PR1NT ftESSA 




BES; 




' I Off 


0080 




RETURN 


10F3 


0080 






10F3 


0080 






10F3 


0080 


AESSASE.GFF: 


10FB 


0080 




LCCATE 24 t l:C0L0R 15,0:FRINT SPACES(79) 5 


1121 


0080 




RETURN 


1123 


0030 






1125 


0080 


END SUB 


112C 


0080 






16C9 


0080 







50426 Bytes Available 
45713 Sytes Free 

0 Warning Error Is) 
0 Severe Error ts) 
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SeigcM Jet ?r\^ r 

Pattern riling p " 5 ^ 1 

07-09-56 

Otfse* Da-- 15:11:44 
*.urce U ne u ^ Personal Coaoucer BASIC Coapuer V2.00 

S ^ ,T::t£l '^ £ " Jet ?r »"t«r ^cTITLE: 'Pattern riling' 

0030 ml • Rr3BLE " Han ° iin5 f ° r PiUernS 

0030 0006 - X. A* Enevold 

0030 0004 

0030 QC06 'C-YRJaHT fC) 1935 ABBOTT LAVATORIES 

0030 0006 

0 0 0°30° W06 ■ fiEVISIGI " L0 ° 2 " 12 " 56 "* Cr " UOn * 10ltUl " d * 

O°030 0 ml ' I^. C ~ e Ca ° ° nW b * c «°^^ ^ th* BASCG« 



0030 oow 's-saiPTin 

0030 0006 

0030 OC06 

0030 0006 



0030 0O06 
0030 OG06 



00:0 S •' CW!PILER ' il -l " not run "* r the nrawETER! i 

■5t3ai?TIIH: 

' . . .™« • odule ,ll0 « h »"«ing (or pattern,. 1IW 
olftJ, it displays 

the current contents of the pattern directory in 4 colu 
•n$ of 20 entries 

each. The pattern .inch is currently selected tor arm 
tinq is narked by * 
0030 OOOi ' 4n lstiri$l l0 th| 1( . t of th< n 

directory is listed 

* the user is presented ..th 5 lemi choices. The left in 
d right arrows are 

used to hiohhoht ien u iteis and the enter key is used 
to invoke action. 1 

Z Zt ' Th * — ho.es «o :..„r act.ons are: 

DELETE - s PIC rt , pattern ule froi the airecto 

COPY - : ;3y , pattern nig t3 l ntu pattern n 
old Cittern 

SESAME - ciaace the naie of the pattern .ithout 
ittern itself 

SELECT - Selc: a satttrn for snating 
t*IT - Petum to the earn *enu 

Which tyoe o* valid key «as pushed 
Which itnu use is being pointer to (0-41 
Distance to icve flENIA at left or right arro 

Errcr type 0-4 

Position of PATVAHEf in directory list 

Nuioer of pattern nates in directory 

Nuiber of ele.ents in a pattern file 
Storage for integers during pattern copy 
Counter used during pattern copy 
Counter used tfu-isg pattern copy 
Rise, input string ' 

Printec at aottoi of screen ourmg prcipt fo 



0030 


0006 








ry 


0030 


0006 








aje, saving the 


0030 


0006 








changing the pa 


0030 


0006 




0030 


0006 


• 


0030 


0006 




0030 


0006 


•k:« dictionary 


0030 


0006 


vt?n 


0030 


0006 


mm 


0030 


0006 


Dim 


0030 


0GG6 


« 

FlAoI 


0030 


0006 


pointer: 


0030 


0006 


PATNURl 






list 


0030 


0006 


EU0JXZ 


0030 


00C6 


TEhTX 


0030 


0006 


i: 


0030 


00C6 




0030 


0006 




0030 


0006 


WKCT* 






r pattern naie 


o?:o 


0CC6 


PATKArtE! 


0030 


0006 


SSLNAflEf 
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. . B . . PA6E 2 

R.i«ir.t ilt Pnattr 07 . 0 ,.g 4 

Pittern rhino tMl:<i 
Offse: &<ti Scursi U»i IS?. Fer^nai Ccwuttr BASIC Ccspiler V2.00 

0030 OOCa • -full FilMMt c< pttttrn diti Mil 

0030 CC-3& • :?'.LE» Filwm icr source s.ttirn <ut» hie use4 4 

0030 C006 * 5?:lEI Filwut for destination pattern «ata file u 

«• d iurirc cooy , M%t . 

0030 0CG6 «CTMW He. pattern naee for COPY and REKAHfc 

0030 0006 -EWI Pattern naies are neld here as the directory 

is beino rewritten 

C030 0CC6 * HEVF1LEI Destination lilenaoe used while copying patt 
ir» data files 

0030 0004 tfSSMEl A aessage printed at the bottoi of the scree 

0030 0006 * HEHUU4.1I Array of strings containing the short and lo 
ng Sena naies 

0030 0006 ERRRESS Aessage printed nhen any error occurs 

0030 0006 ERR* Appended to ERWBSI to indicate nature of er 

0030 0C06 TErtP Storage of real variables -hilt copying patt 

em data files 
0030 C0C6 RS* JPASE 



r*oc J* 

Reagent Jet Printer 07-09-96 
Pattern Filing 13:11:46 
Offset OiU Source une IM rVwul Couut.r BASIC Co.oUer V2.00 



EOSUB INITIALIZE 
TYPE1 » 0 

WHILE TYPEl <> 3 
Al » " 
WHILE A* » " 

At « mm 

XEN0 

IF A$ « CHRS(0) ♦ CHMI75) THEN TYPE1 » U 

1,ft * rr °" IF M ' CHM(O) ♦ CHRU77) THEH TYPE1 » 2: 
'rioht »rro» 

IF At ' CKMU3) THEH TYFEI * 3: 
■<cr> to eiecute selection 

ON TYPE: SOSUB Tl, T2, T3 

UEKO 

EXIT SUS 



0030 


0006 


0047 


0006 


0047 


0006 


0040 


0006 


0054 


0008 


0054 


0CG8 


0C5F 


0008 


0069 


OOOC 


0076 


OOOC 


0082 


OOOC 


0085 


OOOC 


OOAA 


OOOC 


OOCF. 


OOOC 


0CE9 


OOOC 


O0E9 


OOOC 


OOrS 


OOOC 


OCFC 


OOOC 


COrC 


OOOC 


0100 


ooc: 


0100 


OOOC 
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10 



15 



20 



2$ 



30 



35 



40 



45 



50 



Reaceci Jet Prir.ter ?;gE x 

Pattern Tiling 07-09-56 

15:11:46 

Offset Data Source Lir.e IE* Fersonai Cosauter BASIC Csioiler V2.00 



0200 


OCOC 


ihmih SUBROUTINES FCS THIS fiGSULE *«*#«§ 


0100 


oo:c 






0200 


ooec 


Ti: 


'left arro* 


0105 


ococ 




mu * 0 


020C 


wo: 




If mUl = 0 THEN RETURN 


01 IB 


oo:e 




jiff: « -i 


0122 


CCIO 




8CSUB N-U.KENU 


0128 


0020 




RETURN 


012C 


0010 






012C 


0010 


T2; 


'richt arrow 


0131 


0O10 




TYPEI = 0 


0138 


0010 




IF HENUX - 4 TffEN RETURN 


0147 


0010 




OIFFI = 1 


014E 


0010 




GGS'JB NZM.flENU 


0154 


0010 




RETURN 


0158 


0010 






0153 


0010 


T3: 


'<cr> (execute selected tenu itea) 


0150 


0010 




LOCATE 25,1: PRINT SPACES (79); 


017A 


0010 




ON HENUX ♦ t SCStf T3A, T3B, T3C, T30, T3E 


013F 


0010 




6QSU8 flENU.ON 


0195 


0010 




RETURN 


0199 


0010 






0199 


0010 


REJl IPA6E 



55 



72 
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70 



35 



55 



FftSE 5 

Rtaqm; iet mr.;er 07-0?-3b 

Pittera Fiiinq 15:11:46 

OHm- ftati S:,r:i Line ^ Coiauwr 3MIC CnoiUr V2.C0 

11?? :010 TT-i: * ittern 

01U 0010 rjCT* = 'telete' 

OUF 001* ="SU3 etT.SCWXc 

noc sen *f iEM(PHs;rsn « o then keturm 

°.S SS ' < ™ FlASX ' t:S0SU3 SH W .ERROR:RETURN 

!£! cS fiHSnSEI s 'teletinq • ♦ PATNAHEJ ♦ Mini M«t.. 

0220 002* " KSJ8 rlSSAGE.OX 

JaJ 2:1 " rwUl iir,ctor Y d(lttin 9 p* 1 ™" " indiCJt 

20 e4 by F2KTBX 

0226 002* HU. •MiaHLOU* 

0220 0024 KABE -PATOiR-R:?' AS 'PATMR.CLD' 

0217 0024 C?£M •PATOia.aia* F08 INPUT A3 II 

o:;a 0024 open •patbir-rw por output as 12 . 

25 025A 0024 

02SA 0024 WW «li MTral 

024C 0024 PATJCTl « PATRUHl ' » 

0275 0024 dm I2.PATWJXI 

S IF ?»TVUHl • 0 IhEM BOTO 0H.3ME 

0295 W26 FOR I! • t TO PATSWIX ♦ I 

° 0 £| Jg IP IX ••> POINTER! THEM PRINT I2.FATMHEI 

02C3 002A ««1 K 



02E5 002A 

02E5 002A 0IB.6u«: 



02EA 002* O.CSI I 5: CLOSE 12 

02F8 002A 

40 S »2A FILE* a RIBKTIlSTfvKPCIIlTErt) ,L£H(STRH?OlNTcSI) )-U ♦ 

•fat.r:?' 

03IC 002E KILL FILE! 

•JJ J2 'rtnut rtuiniM i»ti "1" to Mintain linked 
0323 OOTt 

« list «ith dirtctory 

^ WILE (PATKURl ♦ l» > P01HTER1 

0533 W2E sfiui « R16HT»(STRJ(P0IMTERI*ll,LEHtSTRJ(P0INT 

ER1*1J>-U ♦ 'PAT.RJP* 

OFILEI * RI6HTIISTRJIP01NTESZ) ,LEN1STR$ (POINTER 



0333 002t 



0359 0032 

sc J,,.!) ♦ 'PAT.S;?* 



A „ B .... KA«E SfILE» AS OFILE* 

0378 W3 * PQIKTERX «■ POWTBtt ♦ 1 



0137 0034 
039C 0034 



VcKO 



0393 003* r .„ 

0199 0034 FATKASEM Stw,«fc« 

03» 0034 SCS ' JB T! :* ... 

oia? 0034 e" J3 0IaMB 



73 



0 268 237 



5 



70 



IS 



20 



25 



30 



*•«■«: in Frinter 

Patttr * Mlin« p fiS£ 6 

07-09-86 

° Tfs 't Data Scree ur, Ifi . . . . 13:11:46 

IM Personal uoasuter BASIC Ccaciier V2.00 

;? 0034 

0333 OCJc cr, WS£ 



35 



40 



45 



50 



55 



0 26€ 237 



Reagen; ;?t Pr.v.er 
Pattern 1 icq 



Offset Dati 



::urce uiie 



PASS 7 
07-07-56 
15:11:4b 

IS.1 Personal Cccputer BASIC Cceoiier V2.CO 



0333 


0C36 


■Zl: ::;r ?ai:ern 


033c 


:^3i 


:y?ex - o 


033? 


003a 


IF PfiTSJP; = 80 THEK ?LASZ = 3.S0SUB SHG¥. ERROR: RETURN 


033E 


0034 


TJHCTi = 'Copy' 


03S! 


0036 


ECSUS ccT. SOURCE 


03SB 


0C3o 


IP LLMlFiTXARcfl = 0 THEN RETURN 


03F3 


5W4 


GC?JB SEARCH 


0403 


0036 


IF POINTER: * 0 THEN FlASZ = P.fiuSUB SHOW. ERROR: RETURN 


C41F 


0036 




041F 


;o3i 


MSM SET. KEYNAME 


0425 




IF LEMNEWAKES) * 0 THEN RETURN 


0437 


o::a 


IF LKiKHSAKl) > 15 THEN FLASZ = 2:S05UB SHOW. ERROR: R 






ETUKH 


0457 


003A 




0457 


003A 


REsSASZS » •Copying • ♦ PATNAKE* ♦ • to • ♦ NEVKAHEI ♦ 






• Please »ait«. a 


047C 


0G3A 


60 SUB nES3ASE.CN 


0482 


003A 




0482 


003A 


'add simntt at end of directory 


04S2 


M3A 


KILL •PfiTOIR.DLr 


0489 


«3A 


NAKE •PATOSR.RJF' AS •PATSIR.CLD' 


0493 


003A 


OPEN TATOIR.CL;' FOR INPUT AS 11 


04A4 


COW 


CfEM •PATOIR-n;?' FOR OUTPUT AS 12 


0486 


003A 




04B6 


003A 


INPUT It, PATNUHZ 


04C8 


003* 


FAWJSX • PATN'js; ♦ 1 


0401 


003A 


KITE I2,?AT^r: 


04E2 


003A 




04E2 


003A 


FOR 1Z = 1 TC ?a:murZ - 1 


04R 


0C3C 


input k,:e*p$ 


0503 


0040 


FRIK7 tr.TEKF* 


0513 


0040 


*clT 1Z 


0525 


0040 


PRINT I2,XE*NA«.ES 


0535 


0040 




0535 


0040 


CIS3E IhCLCSE 12 


0543 


0040 




0543 


0040 


'create ccoy of pattern data file 


0543 


0040 


FILES * RISHTitSTRf (POINTERZ) ,LEN(STR$(PQINTERX))-1) ♦ 






•PAT.MF' 


0567 


0040 


timiil * RISHTf(STR$(PATNUHZ) t LEN(STR$(PATNUHZ))-l) ♦ 






•PAT.RJP* 


0589 


0044 




0588 


0044 


OPEX FILES FCR INPUT AS 11 


059C 


0044 


OPE* KWFIIEI FOR OUTPUT AS 12 


05AE 


O044 




05AE 


0044 


IhPUT tuEirax 


05CO 


004ft 


K3ITE H.ELKMX 


0501 


0046 




0501 


0046 


FCR IX * i TO 4 


0508 


0046 


INPUT 11 JEW 


05EA 


CC4A 


SniTE *2JE<P 


05FA 


GO'A 


NEXT IX 


060A~ 


0C4A 




06GA 


00 4 A 


FOR IX * I TO ELNUHZ 
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^iawt Jet Printer 

r'ittern Filir.a 8 

0/ -09-96 

Offset Oat* Esarce Line IS* Personal Cowuter BASIC Coepiler'JJ.'oJ 

0417 CO'C ?CR J*, s 1 TO 6 

? 6 ! E °° <C INPUT ii.thps 

J*' 0 004E WITEI2.THPX 
0641 004£ oeij J: 

06SI 0050 h'EIT IX 

0663 0050 

0463 0050 CLOSE IhCLOSe 12 

0671 0050 

047 1 0050 scsag nESSASt.OFF 

0677 0050 BC3UB DISP.OIR 

067D 0053 RETURN 

0681 0050 

0481 0050 T3C; 'renaie pattern 

0636 0050 TYPE! « 0 

04 " W50 FUNCTI , .<(,„„. 

04,7 0050 SCSI'S SET. SOURCE 

04,0 0050 IF LENiPATNAAEl) * 0 THEN RETURN 

06AF 0050 60 SUB SEARCH 

mi till ^ ?mmi ' ° ™ H FLMI * l!683U8 

0631 0050 6CSUB 6ET.McV.NArE 

0407 0050 IF IEJ1 <««««£« I « 0 THEN RETURN 

06E ' 0050 ETURN ^ Ll * {mHMl " » 15 lm FLflSI 8 2:60SUB SHQN.ERROR:R 

0709 0030 IF NEWAHEf « PA HUMES THEN RETURN 

071C 0050 

071C 0050 HESSAScf ■ • ♦ MT KNEf ♦ • to ■ ♦ ffilMKS ♦ 

Pluse «ait..* 
60SUB PEHAe£.:il 

KILL •FAT0IR.0L3' 
M« ,e «T0IR.S:?' :3 •FATOIR.SLO' 
OPEN •fSTOIS.CLO' ?0R INPUT AS II 

c?en •nmt.w pcs output as 12 

INPUT It, PATNUIIZ 
MITE W.PATWK 

FOR IX * 1 TO PATNUHX 
INPUT ll.TERPt 

IF 12 <> FOI.NTERI THEN PRINT I2.TEBM 
IF IX « pointer: THEN PRINT I2,NENNANc$ 

NEIT IX 

CLOSE IhCLCSE 12 
60SUB NESSASE.OFF 



0741 


0050 


0747 


0050 


0747 


0050 


0747 


0050 


074E 


0050 


0738 


0050 


076? 


0050 


0778 


0050 


0778 


0050 


0730 


0050 


079E 


0050 


079E 


0050 


07A8 


0032 


07B0 


0052 


07DA 


0052 


07F7 


0052 


080? 


0052 


080? 


0052 


0817 


0052 


0817 


0052 


0810 


0052 


0810 


0052 


0810 


0052 


083C 


0052 



3DA 



'select new oattern nue if necessary 
IF PATNAKf = 3£LNA«£$ TKSK PATNA«Et = H&mg* :60SU8 T 

6GSUB OISF.OIR 



0 268 237 



*5KSm-. UX P'-.r.ter ?ASE 9 

Pattern Filmc 

15:11:46 

Off sr. !iti Ssurce Lir.e IBS Personal Ccaouter BASIC Csioiier V2.00 

03;: oc:: 
0346 ocs: 

0846 W52 ?EK fp;St 



Rea:ent 


Jet Printer P ft SE 10 


Pattern Filing 


07-09-86 






13:11:46 


flfieot 
UT T Se t 


Data 


Source Line left Personal Coiouter BASIC Coaoiler V2.C0 


vo*o 




T30: 'select pattern for printing 




0052 

VVJi 


TYFEI = 0 


OAS? 


005? 


FUNCT* - 'Select' 




OO c ? 


6GSU3 6ET. SOURCE 


voo£ 


OC c ? 

VVW4 


IF LEN'.PATNAJtSSi * 0 THEM RETURN 


0374 


0052 


ir PATNAREf * SELW.ES THEN RETURN 


0397 


0052 


SGSU8 T3CA 


neon 

vOO V 


0052 


SGSUB DISP.D1R 




C052 

WVW4 


RETURN 




0032 




WOT / 


0052 


T30A: 


089C 


0052 


B03U3 SEARCH 


08A2 


0052 


IF POIKTERI » 0 THEN FLAGI » lsGOSUB SHOW. ERROR: RETURN 


086E 


0052 




Ooot 


0052 


AES3ASES s 'Selecting ■ ♦ PATNA5ES ♦ 1 Please -ait. 

* 


0805 


0032 


• • 

GCSUB nESSASE.CN 


08DB 


0032 




0838 


0052 


'change entrys in pattern default file PATOEF.R 






JP 


0808 


0052 


OPEN •FAT0EF.R;P # FOR OUTPUT AS 11 


08ED 


0052 


FILE J » RIGHTS (STRKPOINTERD ,LEN(STRS(POINTERXI )-l) ♦ 






'PAT.RJP' 


09tl 


0052 




0911 


0052 


PRINT 11, FILES 


0921 


0052 


PRINT ll ( PATKAflES 


0931 


0052 




0931 1 


0032 


CLOSE 11 


0933 


0052 


scsus .lESSAse.:?? 


093E 


0032 


RETURN 


0942 


0052 




0942 


0C52 


T3E: 'exit pattern tiling 


0947 


0052 


RETURN 


094B 


0052 




0948 


C052 


REH SPASE 



0 2*8 237 



«ei:e.v. ; t > printer 
Pattern Fj i ; Rg 

07-09-26 

Persc " 1 c °«uter BASIC Cr» lier V2.r, 0 

09<c ocs: «; SC: . ; . 

owe cos: ,o:.vtk * o 

tor, ,l ' mMJ ' U: •« o« patterns in « ric 

JK 0 C 052 W1LE '7^ £ » < M ™"> IWTWE! <> TfflPl, 

'5 09C? oc5 J j "-INE I ( i?UT II, TEW, 

0052 O0 WIlUDtt 

m SS d'orn"" ° TBM THEN P0,NTE « - • 

?0 ft 0 !! 8 °°3? RETURN 

?0 Ot?C 0O52 

09F C 0052 EcT.SOSCE: 
25 25 fwnWT: ••.»!■«, 



35 



us-fc 0C2 RETURN 
0A62 0052 



0A62 0052 8cT.k£¥.WA«£ 
0A&7 0052 



0A3C 0C52 

OABC C0J2 B'ca nis. ., . 

OACI 0052 " . d, »"""^t:r yin 4cal l! .n S , 20 ro „ 

OACI 0C52 OF;M .MtS"-":^ ^ " t0 

s s 

Zl 25 CPEJi ''A'CIfi..?;?* FOR INPUT AS II 

M5J f ^•MWW-l.»MTWIl<|o WBlIWx , POT||U|1 - 

0B91 0054 LOCATE (i: .100 201*1, (INTIIX/20) §201*1 

OBAI or.| Kln S?ACEI(IB); 

OMI CC4 N £ IT jj 

08BJ 0054 

0C06 O0«i L --"E (i: .100 :0)*l,(INT(i:/20H20)*3 

-CP cc'f P3WTFATJMKI: 

" . rr.i—-. J F ,■ B :™ r ■ £, s " l * MZt TiiEV L0C;;:£ ( - wo 
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reagent 


: Jet ?r: 


,nter PAGE 12 


'attars 


> Filing 


07-09-36 






15:11:46 


OH set 


Data 


S-urc? .ine Perscnai Cctouter 5 AS I C Ccsoiler 72.00 


OC62 




SETT u 


0C77 


cos* 


CLScE 11 


0C7E 


0G56 


50SU3 f.ESSASE.QFF 


OCS4 


0056 


RETURN 




wia 




OC5£ 




INITIALIZE: 


0C8D 


0056 


:is sEMsu.n 


OCSE 


«7E 


RSJiiiNO.OI = 'Delete' 


OCAS 


w/ 1 


nESuI(0,ll - 'Retove a pattern file frci the directory" 


OCC1 


0C7E 


REHUN1.0I = 'Cooy* 


ococ 


0C7E 


R£HU$( 1 , 1 ) = 'Copy a pattern Hie to a neit pattern naie 

• 


0CF5 


007E 


*ENUS(2,0I = "Renaie" 


0012 


007E 


KEKUf(2,l) ' •Renaae a pattern Hie in the directory' 


0030 


C07E 


RSNUNI.O) = 'Select' 


0043 


0071 


RHNUf <3 f 11 3 "Select a pattern file to be printed" 


0067 


0O7E 


HENUf(4,0) ' "Exif 


0032 


0O7E 


r.ENU«(;,l) = 'Return to the tain ienu" 


009E 


007E 




009E 


0O7c 


CGLOR 9,0: CIS 


0DB1 


0O7c 


LOCATE 21,1 


ODBE 


007E 


FCR IX a I TO 80 


O0C5 


007E 


PRINT "5*; 


0002 


007E 


NEXT IX 


00E2 


007E 




O0E2 


007E 


FOR REKUI = 0 TO 4 


ODES 


00 7E 


GGS'JB PEVJ.OFF 


ODEE 


C07E 


HE XT RENUI 


O0FE 


C07E 




ODrE 


00 7E 


tosus c;s?.cir. 


0EQ4 


007E 


IF FLA6I ) 0 VrlH S0SU3 SHC'J. ERROR 


0E15 


00 7E 


rim = 4 


0E1C 


007E 


GG5U6 HENU.CN 


0X22 


007E 




0E22 


007E 


RETURN 


0E26 


007E 




0E26 


007E 


KEV.flEW: 


0E2B 


007E 


6GSUB RENU.CFF 


0E31 


007E 


r.ENUI - AENUI ♦ DIFFX 


0E30 


007E 


605UB REHU.ON 


0E43 


007E 


RETURN 


0E47 


007E 




0E47 


C07E 


XEMKQX: 


0E4C 


007E 


LOCATE 22,<flENUItlOM8 


0E63 


007E 


COLOR 0,7 


0E6F 


C07E 


PRINT REMil(.".£NU: v 0): 


0E5D 


007E 


LOCATE 25 , 40-LEfc (KENU* (HENUI ,1)1/2 


OECI 


007E 


COLOR 7,0 


OECO 


0C7E 


PRINT RENU*(KENUX t l>; 


CEEC 


C07E 


RETURN 


CErO 


007E 




OEFO 


007E 


•■EMU. OFF; 


CEF5 


007E 


LOCATE 22, CWESUt* 10) ♦IB 


OFOC 


00 7£ 


CGLft 14,0 
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teiqm Jet Printer ' 

Pattern Tiling Pftgr l3 

t!it * s ™ »» MBt „,^': 

ofbA oo7e ^:;K:::: 0 *- tS, ™ ! '^i.ni/2 

OPSF O07E ^--^<^'«^,, £NUIil)J); ^ 



25 



30 



40 



45 



SO 



0F93 007E 

OF?! 007c SKW.ERSCfc 



0°r"? 0 °o;l «« Bl. W, B3. « 

0F59 0094 , nf" -; t " M * ' »r *iy. 

S oo%" SSMi 4CHn,BW8,,/l 

0FE7 0094- PRINT ES.vlSSI; 



A* = •' 



0r?4 0034 

OFFE 0084 IfHILE Al - 

101/ CCo6 



WEKO 



! 0 °" 21 BSM.lBSASE.flFF 

1020 0086 RETURN 

1024 0086 

1024 0086 Hi; 

JS Sot' S * • '•«« i« O.rectcry 

1030 0086 

1030 00S6 E*2: 

1042 0086 rcp« - « 3 

t04C 0084 SJbJ ?lttSr " " m '» 109 ^ '15 character, „,.,. 

1050 0086 

10 '0 0086 En3: 

1035 0086 r=5« - • « 

• 10* 0036 S fiN " DireCt ^^-H (SO patterns .ax.r 

1063 CC36 

1063 00S6 EK4: 

1063 0086 prrt - .r 

1072 0036 k Tur ; ^"^''SELECTdpmirnHi.,- 



1076 0086 
1076 0086 -HESSASE.M 
1073 0086 



1086 008A RETURN 
108 A 0086 
108A 0086 

108A 0086 KES5A3E.0FF: 

K SSI S :, '" t0L " "• w,w 

10EC 0086 

10EC 0086 EKO 5U8 

1CF3 0086 

1653 0086 



W426 Bytes Available 
<5670 Eytes Free 

0 Warning Error(s) 
0 Severe Error(s) 



SO 
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* c a Z e u 


: Jet Fri-ter PASE 1 


nun Line Code 


07-09-Eb 






15:27:04 


Offset 


Data 


Scurce Line IcA Personal Ccs:uter BASIC Coaailer V2.00 


0030 


0006 


RE* S T I TLE : 'Reicsnt Jet Printer' f SUBTITLE: 'Sain Line Ccce' 


0030 


0006 




0030 


0006 


'HODULE - 'RAIN* 


0030 


0006 




003C 


0006 


'AUTHOR - N. A. tnevold 


0030 


0006 




0030 


0006 


'COPYRIGHT (0 1936 ABBOTT LA30RATCRIES 


0030 


0006 




0030 


0006 


REVISION - 1.1 02-19-86 NAE Add notes anc revise TYPE! resetin 


0030 


0006 


g 

- 1.0 02-14-86 NAE Creation of initial code 


0030 


0006 




0030 


0006 


'SYSTEM - This code can only be coapiled by the BASCCfl 


0030 


0006 


CCnPILER, it mil not run under the INTERPRETER!! 


0030 


0006 




0030 


0006 


'DESCRIPTION 


0030 


0006 


This is the earn controlling eodule for the Reagent Jet 






Printer. 


0030 


0006 


It displays a aenu in table fori that allows 6 function 






s to be 


0030 


0006 


selected. PA'TERN DEFINITION allows the user to define 






patterns 


0030 


0006 


to be printed. PATTERN FILING lets the user delete, co 






py, renaae 


0030 


0006 


and select patterns tor printing. REAGENT CALIBRATION 






periits setting 


0030 


0006 


of operation paraiettrs for different reagents. REA8EN 






T FILING is 


0030 


0006 


the saie as pattern tiling. PRINTlNS PRINT prints the 






selected 


0030 


0006 


pattern nth the selected reagent. SYSTEM EXIT TO DOS 






ends the session. 


0030 


0006 


Using up and down arrow keys let the user aove through 






the aenu and 


0030 


0006 


the Enter <cr) key actuates the selection. 


0030 


0006 




0030 


0006 


'DATA DICTIONARY 


0030 


0006 


ftENUl This value represents the current tenu 






itei (0-5) 


0030 


0006 


nENU$(5,l) String array for displaying aenu l teas* 






6 tons by 2 coluans 


0030 


00W> 


Each ro» corresponds to a aenu itea (0- 






5) 


0030 


0006 


First coluan is short aenu naae in high 






lighted area 


0030 


0006 


Second coluan is long description displ 






ayed at aenu bottoa 


0030 


0006 


nR0VX(51 This array stores to row in which the s 






hort aenu naae Mill be displayed 


0030 


0006 


DIFFI This value is used it change KENUX in r 






esponse to arrow keys 


0030 


0006 


TYPEI This value is set based on which valid 






ker is pressed 


0030 


0006 


0 = No valid key. t = Up Arrow. 2 • D 



61 
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; i, ' H,: Je t "inter 
■■' in Line Cade 

Cff5et bti Scarce Un, 



07-07-=; 



0030 


C0C6 


0030 


0006 


0030 


0OC6 


0030 


0CC6 


0030 


0006 


0030 


0006 


0C30 


C0C6 



*ei:ent J-t hi 




lain Line Coce 




Source 


0030 0C06 




0030 0CC6 




0030 CCC6 




0030 COS* 




0030 CCC£ 




003; 0006 




00*3 0006 




0045 00C6 




0056 00C8 




ocs6 oc:z 




C05D 00C3 




0067 O0CC 




0076 OCCC 




ooeo oocc 




0083 COCC 




00S3 OCCC 





-oi.iuer ;*, 3iL L ;i 0 i; er ./2 . 00 
f« Arr 3 .. 3 = <cr>> 

r«n.d ' " U$,! t0 3 «WI rtiif screen „ r|f 

" ?.'d Jo° ,? rf " n?le * flBUt keystr » k » 

? «* » -r,..., „. ten ' u ta.,e ,PKiil ^ <»™t. 

n . C n 0unteru ^tor B ; resMlS3lay 
m d,seiav«d °* W*J gnphici character 

ter is delayed C ° lu,n ,n ■ h "'» ""in graphics charac 



?6s- : 

O7-09-3& 
P^sonal Cc„«t er BASIC Cc*,!." 



KSL'S I3ITIALIZE 
WIL£ TYPR'p J 



type: s o 

At a •• 

MILE Af = •• 

A* = INKEYi 

VEND 



00A8 00 CC 
OOCD OOOC 



«,arr M CHRl(O) ♦ CHRJI72) THEK TYPEI » j 5 • 

icn arr W " " " * CHR,,8 °' ™« TYPEI . 2: ' 

(cr) * IF " " CHa, " J » TH « TYPE! * 3- • 



00E7 OOOC 

0CE7 eoec ^ 

00F6 M 0C rYPEl SC3US Wi T3 

J0F4 OOOC ^ 

Our ii CCOC 

°i?A SOCC as 

0!0 ' C0'CS7r ft 

0122 OOOC Ssi ,C, ° 



82 
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Sascr.: Jst Printer 
Join Line Cede 

Offset Data Source Line 



lo* Personal Cat-outer 



PAGE 4 
07-09-36 
15:27:04 
BASIC C:-:iler V2.00 



70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



out 


COOC 


■iHMH* SUB-KUTIKEE FCR P.AIM FROSRAN 


01U 


OCOC 


. Tl: 


'uc arro» 


on? 


oocc 




IF HENUt = 0 THEN RETURN 


oi:a 


O0OE 




CIFFX = -1 


0131 


0010 




eOSUB NEM.REHU 


0137 


C010 




RETURN 


0138 


C010 






013B 


0010 


T2: 


'dom arrsi 


0140 


C01C 




IF RENUI = 5 THEM RETURN 


014F 


0010 




OIFFI * 1 


0156 


0010 




60SUB sn.rm 


01SC 


0010 




RETURN 


0160 


0010 






0160 


0010 


T3: 




0165 


0010 




ON HENUZ ♦ I 60SU3 T31, T32, T33, T34, T35, 


017C 


0010 




IF KENU: < 5 THEN TYPE! * 0: ' reset TYPHI 






won't end 


OlcE 


0010 




SCREEN 0,0,3,3 


01A5 


0010 




RETURN 


01A9 


0010 






OlA? 


0010 


T31: 


'pattern definition 


01AE 


0010 




CALL PAT ENTRY: 'in ioduie PATENT 


01BA 


0010 




SO SUB REFRESH 


01C0 


0010 




RETURN 


01C4 


0010 






01C4 


0010 


T32: 


'pattern tiling 


01C9 


0010 




SCREEN O,O,0,O:CLS 


OlES 


0010 




CALL PATTERN. F!LE: *in locule PATFILE 


Q1F1 


0010 




RETURN 


01F5 


0010 






01F5 


0010 


T33: 


'reagent califcrau:.n 


01FA 


0010 




CALL REASENT,CALIE-U;E:*tn todule REACAL 


0206 


0010 




RETURN 


020ft 


0010 






020A 


0010 


T34: 


'reagent filing eenu 


020F 


0010 




SCREEN O t O,0,0:CLS 


022B 


0010 




CALL REA5ENT.FILE: 'in ioduie REAF1LE 


0237 


0010 




RETURN 


0238 


0010 






023? 


0010 


T35: 


'print pattern 


0240 


0010 




CALL PATPAINT: 'in aodule PATPRINT 


024C 


0010 




RETURN 


0250 


0010 






0250 


0010 


T36: 


'exit systei, don't reset TYPE! 


0255 


0010 




RETURN 


0259 


0010 






0259 


0010 


m 


IPASE 
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''iiCcui ;et rr;nter 

"•in L:.-ie Coie ?Ao£ 5 

37-09-96 

5 Line .oS rer 5;ni i C c„ u:8r 5;=;; C:islitT vz.oo 

o:s u» c« BB1 g ]B . 8fF 

0*70 .CIO KSBSBSW.0H . 

'° "JO tnuSH 
027A 0010 

027A 0010 INITIALIZE: 

027F 0C10 KU.KI.IHT 

Odb oeio 

or? 2iJ »WW5Kt5) 

029E 001C WMZ( „ , 4 

0231 001C mnt2i , , 0 

0207 C0IC wa:(4 , , , 4 

02EA 001C W0SI , 5) , 2ff 
02FD 001C 

02FD COtC DMREMIICu 

J-" 3 C - 4C FC? II * 0 TO J 

03" 0 C C« „ " W «M»'».8».TOIII,1» 
034B 004E 

« x ' sy-r •'«• «- 

0JS2 00<c rt^jx . 0 
035? 004E 



033? f; 
« 035E CUE 



035E 0C4E £:?S.NO,-..o. : j-C-=--'S'iin 

03SB 004E LCK:M0rfc\-:":. ,0 '° 

03C2 C44E •-."■«3 
<c 03C2 9C4E 

03C2 0O4E CCL3R IJi0 

03CE 004E tCMT - , tJ . 

0308 OWE nm . RW , SI 

03e3 OWE 0ltW 10,0 

-s 03/4 004E LOCATE 5,24 

040J 6ME MM •pflTTERX' 

04( K LOCATE 11,26 

04i * W4E fSJXT 'REAcEKT' 

C428 CG4£ LCCflTT 14.26 

50 0435 W«£ f<U«T 'FF.IHT1KS* 

0<42 0C4E LOCATE 20,27 

0<4F C04E psijit 'STSTEB' 
04SC 004E 

res i: = is re « 

0; ^ F 0;)<£ locate r.;:;fj;j;7 -a-; 

045 A CO*t in"**- * t« — ... 



8- 
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10 



75 



20 



25 



30 



35 



40 



45 



50 



- i ._ v " r.-;,*- r PrOt 0 

r.ziuefit jet r T Ifttcf _ 

„ * . . . 07-u?-ao 
r.ain tine lode c 

0 4 *set Data S:wC£ Line ll* Personal Ccsauter C:i>Diler V2.CO 

tCCATE :3. ir:?SElNT '9'; 

lccate ::.i::?RiNT 

LOCATE 24, IMPRINT '0'; 
TCR It = 3 TO 23 

locate ::,;7:?r:nt T; 

LOCATE i:,i4:PR!NT "J"; 

NEXT II 
RESTORE TABLE 
FOR II - 1 TO 12 

READ RX,CI,CS 
LOCATE Rl,:::FRIMT CS; 

Kf IT II 

print the instructions 
COLOR 7,0 
LOCATE 25, b 

PRINT 'Use or to Highlight aenu iteas. Use to 
activate selection.'; 

CCLCR 15,0 

LOCATE 25,15:PRINT ••; 
LOCATE 25,47;?RINT -JY'; 

di sol ay the fa ienu choices 

TEn?: = menui 

FOR MENUI s 0 TO 5 

6Q5U3 flESU-CF? 
MEXT MENU! 
HSMUI = TEMPI 

highlight the currently active ienu ltei 
6GSU3 MENU. ON 

SCREEN 0,0,3,3 
RETURN 

REWI.OK: 'highlight the ienu RENUI and display its long descript 
ioo 

COLOR 0,7 

LOCATE MROtttMENUU ,52-LEN(MEKU$tHENUI f 0) 1/2 
PRINT MENUS IMENUI,0); 
COLOR 7,0 

LOCATE 23, 40. 5-LEN (MENUS (MENUI,!)) II 
PHI NT MENUS (MENUI, 1) ; 
RETURN 



04C0 


C24E 


0403 


* * » z 


04?fa 


C04E 


0511 


C04E 


C524 


00*E 


0523 


004c 


054b 


004E 


05b 1 


004E 


0571 


WE 


0573 


004E 


057F 


C04E 


0592 


OC5b 


05AE 


ecu 


053E 


005b 


053E 


0056 


053E 


005* 


05CA 


005b 


0507 


005b 


05E* 


005b 


05E4 


005b 


j 

ObOA 


0056 


0624 


0056 


0o3E 


005b 


* 063c 


005b 


063E 


0056 


0645 


0053 


0643 


&s>5o 


0651 


0053 


Obbl 


W53 


0663 


0053 


0663 


W53 


0663 


0053 


066C 


0058 


ObbE 


0058 


0655 


0053 


0689 


0058 


068? 


0053 


0631 


0058 


069A 


oosa 


ObOA 


0058 


06F6 


0C53 


0704 


0058 


0733 


0058 


0757 


0053 


075B 


C058 


075B 


0053 


0760 


0C53 


076C 


::53 


07AC 


vo53 


07CA 


0053 


070b 


» » c 2 



K£NU.Ofr:*un-highlicht ienu MENUI and erase long description 

55 !Ji?c LcSt l KR:'-;i?^dt) f 5:-LE!ilMEMUSir,ENUI,0)i/2 

PRINT MENUS ;MEKUI,0); 
COLOR 7,0 • 

LOCATE 2 3 . 4 C . 5 -LEN I r.tSU $ c KEKUZ , U W 2 - 



85 



0 2S8 <??7 



"SiCeM ;et ?r inter 

lain Liu? Coce 7 

07-09-5& 

«'»t 5.U -,ce Lin. IB, Perso^l C B6 p utB r BASIC Co.p.l^S 

0333 0028 

0833 OOia RE 1 ! *?AGE 
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neacsr.t Jet Printer 
.rain L:.-e Ccoe 



CffSfit Jali 



soiree :me 



r ASE 3 
07-09-35 
11: 17:0* 

!3fl Personal Cowuter BASIC Cctoiier V2.C0 





0S33 


0053 


mum DATA FiSLUS USED BY THE KAIN ?Mz?.kl «tttt««t 




GS33 


0053 






oa:3 


0C53 


RDTJ-STK INS. DATA: 'first entry is lenu naie, seccno is lo 


10 


0833 


0058 


ns description 
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1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 
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© A system for printing and dispensing chemical 
reagents in precisely controlled volumes onto a me- 
dium at a precisely controlled location. A jetting tube 
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electric transducer (434). The fluid receiving aperture 
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reservoir is pressurized by a regulated air supply. An 
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^transducer. The pulse causes the transducer (434) 
CM and the volume defined by the jetting tube (432) to 
q expand, thereby drawing in a small quantity of 
reagent fluid. The cessation of the pulse causes the 
— transducer (434) and the volume of the jetting tube 
(432) to de-expand, thereby causing at least a sub- 
stantially uniformly sized droplet of reagent fluid to 



be propelled through the orifice (433). The droplet 
may be directed to impact a printing medium or 
collected in a dispensing recepticle. 
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